DateToZodiac DatesTimes Function -- Entisoft Tools 1.5 Object Library

Date To Zodiac Function
Dates Times Class

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

Examples:

    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.