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.