DaysMonth

Public Sub DaysInMonth(strDate As String, bytDaysInMonth _
As Byte, strError As String)
If IsDate(strDate) Then
bytDaysInMonth = DatePart("d", DateAdd("d", -1, _
DateAdd("m", 1, DateAdd("d", -DatePart("d", strDate) + 1, _
strDate))))
Else
strError = "The Date " & strDate & "La data non e' valida" _
& "Inserire una data valida."
End If
End Sub