< Public Function DaysInMonth2 (dDay As Date) As Integer (?)

Comments

    
    '------------------------------------------------------------------------------
    ' Get the number of days in a given month
    '------------------------------------------------------------------------------

Public Function DaysInMonth2 (dDay As Date) As Integer

    'Return the day of the month of the day before the first day of the next month
    DaysInMonth2 = Day(-1 + DateAdd("m", 1, DateSerial(Year(dDay), Month(dDay), 1)))
End Function

Copying, Return to index