Dua Cara Memperoleh Tanggal Terakhir Dari Bulan Tertentu

Cara Pertama:

Private Function GetLastDayOfMonth(d As Date) As Integer
    GetLastDayOfMonth = DateDiff("d", Format$(d, "mm/yyyy"), Format$(DateAdd("m", 1, d), "mm/yyyy"))
End Function

Cara Kedua:

Private Function GetLastDayOfMonth(d As Date) As String
    GetLastDayOfMonth = DateAdd("m", 1, DateSerial(Year(d), Month(d), 1)) - 1
End Function

Contoh Penggunaan:

Private Sub Command2_Click()
    Dim d As Date
    d = #7/13/2012#
    MsgBox GetLastDayOfMonth(d)
End Sub