Menghitung Jumlah Hari Dalam Satu Bulan Pada Visual Basic

Share On :

Tweet

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

Buat 1 project dengan :
1 Form
1 CommandButton

Copy source code berikut pada Form :

Public Function LastDayOfMonth(ByVal ValidDate As Date) As Byte
Dim LastDay As Byte
LastDay = DatePart("d", DateAdd("d", -1, DateAdd("m", 1, _
DateAdd("d", -DatePart("d", ValidDate) + 1, _
ValidDate))))
LastDayOfMonth = LastDay
End Function

Private Sub Command1_Click()
MsgBox "Jumlah hari pada bulan ini adalah " & LastDayOfMonth(Now) & " hari"
End Sub

Download Source Code