Menghitung Jumlah Hari Dalam Satu Bulan

Source code berikut untuk menghitung jumlah hari dalam satu bulan di Visual Basic 6.

Buat suatu project dengan :
1 Form
1 CommandButton dengan name"cmdDayOfMonth"

Copy source code berikut pada Form :

Option Explicit

Private Function DayOfMonth(ByVal dtmDate As Date) As Byte
   Dim btyDay As Byte
   btyDay = DatePart("d", DateAdd("d", -1, DateAdd("m", 1, _
                      DateAdd("d", -DatePart("d", dtmDate) + 1, _
                      dtmDate))))
   DayOfMonth = btyDay
End Function

Private Sub cmdDayOfMonth_Click()
   MsgBox "Jumlah hari pada bulan " & MonthName(Month(Now)) & "  ini adalah " & DayOfMonth(Now) & " hari"
End Sub