Public Function Easter( _ ByVal vYear As Variant _ ) As Variant
Easter(1998) = #4/12/1998# Easter(1999) = #4/4/1999# Easter(2000) = #4/23/2000# Easter(2001) = #4/15/2001# Easter(#1/1/2001#) = "4/15/2001#vYear: The date or year number which whose Easter day is to be returned. Function examines the year component of the date if vYear is a date value. Function interprets numeric values as years instead of interpreting them as a date. Function returns Null if vYear is Null or cannot be fixed up to either a date or a number.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.