Public Function MoonPhase( _
    ByVal vDate As Variant _
    ) As Variant    MoonPhase(#11/12/1999#) = 0
    MoonPhaseName(0) = "New Moon"
    MoonPhase(#12/25/1999#) = 4
    MoonPhaseName(4) = "Full Moon"See also: MoonPhaseName FunctionvDate: The date whose moon phase 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.