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

Date To Zodiac Sample Sub
Dates Times Class

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

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

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

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

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

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