Public Function MoonPhaseName( _
ByVal vPhase As Variant _
) As Variant MoonPhase(#11/12/1999#) = 0
MoonPhaseName(0) = "New Moon"
MoonPhase(#12/25/1999#) = 4
MoonPhaseName(4) = "Full Moon"See also: MoonPhase FunctionvPhase: The phase of the moon (between 0 and 7) whose name is returned. Function returns Null if vPhase is Null or cannot be fixed up to an integer number.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.