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

Date To Zodiac Function
Dates Times Class

Public Function DateToZodiac( _
    ByVal vDate As Variant _
    ) As Variant

"Date To Zodiac Name"
Returns the name of the Zodiac sign given a date.

    DateToZodiac(#01/01/96#) = "Capricorn"
    DateToZodiac(#07/04/96#) = "Cancer"
    DateToZodiac(#11/30/96#) = "Sagittarius"
See also:
    SeasonName Function
    SpellTime Function
    DateToZodiacSample Subroutine
vDate: The date for which the name of the Zodiac sign is returned. Function returns Null if vDate is Null or cannot be fixed up to a Date.

Note: This function DOES support pre-1900 Date/time values.

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