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.