CodeItBetter Programming Another VB Programming Blog

'Date & Time - How to Count Number Of day In a month
Private Sub Command1_Click()
    MsgBox DaysInMonth("20/07/2006")
End Sub
 
Public Function DaysInMonth(ByVal dDate As Date) As Integer
    DaysInMonth = Day(DateAdd("m", 1, dDate - Day(dDate) + 1) - 1)
End Function
 
'or 

Public Function DaysInMonth(dDate As Date) As Integer
    DaysInMonth = Day(DateSerial(Year(dDate), Month(dDate) + 1, 0))
End Function