Public Function Zodiac( _
ByVal vDate As Variant _
) As Variant Zodiac(#01/01/96#) = "Capricorn"
Zodiac(#07/04/96#) = "Cancer"
Zodiac(#11/30/96#) = "Sagittarius"See also: SeasonName Function
SpellTime Function
ZodiacSample SubroutinevDate: 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. Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.