Function DaysOfMonth(aYear,aMonth)
For i = 31 To 28 step -1
If IsDate(CStr(aYear)&"- "&CStr(aMonth)&"- "&i) Then
DaysOfMonth = i
Exit Function
End If
Next
End Function
Function DaysOfMonth(aYear,aMonth)
For i = 31 To 28 step -1
If IsDate(CStr(aYear)&"- "&CStr(aMonth)&"- "&i) Then
DaysOfMonth = i
Exit Function
End If
Next
End Function