Public Function DaysInMonth( _
ByVal vDate As Variant _
) As Variant DaysInMonth(#1/15/2000#) = 31
DaysInMonth(#2/15/2000#) = 29
DaysInMonth(#2/15/2001#) = 28
DaysInMonth(#3/21/2001#) = 31See also: LastDayOfMonth Function
IsLeapYear FunctionvDate: The date whose month is examined to determine the last day of the month. 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.