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.