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

Previous Odd Sample Sub
Math Arithmetic Class

Private Sub PreviousOddSample()
    ' Print some samples of the PreviousOdd function.

    Dim dblCur As Double
    For dblCur = -6 To 6 Step 0.5
        Debug.Print "PreviousOdd(" & dblCur & ") = " & PreviousOdd(dblCur)
    Next dblCur
End Sub

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