Code Snippet - Find Days In Month

[Mark Gambo]

Hardly any code and look mom "No variables":

Function GetMonthDays(MonthToCheck As Date) As Integer
    GetMonthDays = Day((DateAdd("m", 1, Format(MonthToCheck, "mm/yyyy"))) - 1)
End Function

and call it like this:

Private Sub Command1_Click()
    MsgBox GetMonthDays("02/23/2004")
End Sub