<-- Previous || Up || Next -->

Spell Time Sample Sub
Spellings Class

Private Sub SpellTimeSample()
    ' Make several sample calls to the SpellTime function.

    Randomize

    Dim intTrial As Integer
    For intTrial = 1 To 16
        Dim dblDateTime As Double
        dblDateTime = Rnd

        Debug.Print "SpellTime(#" & CVDate(dblDateTime) & "#, Null, True) = " & SpellTime(dblDateTime, Null, True)
    Next intTrial
End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.