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.