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.