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

Zodiac Sample Sub
Dates Times Class

Private Sub ZodiacSample()
    ' Print the boundaries of the Zodiac signs.
    ' Also serves as a sample of the Zodiac function.

    Const dblMinDate = #1/1/1996#
    Const dblMaxDate = #12/31/1996#

    Debug.Print dblMinDate & " " & Zodiac(dblMinDate)

    Dim varForDate As Variant
    For varForDate = dblMinDate To dblMaxDate
        If Zodiac(varForDate) <> Zodiac(varForDate - 1) Then
            Debug.Print varForDate - 1 & " " & Zodiac(varForDate - 1)
            Debug.Print varForDate & " " & Zodiac(varForDate)
        End If
    Next varForDate

    Debug.Print dblMaxDate & " " & Zodiac(dblMaxDate)
End Sub

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