last-day-of-month

Finding The Last Day Of The Month

Finding The Last Day Of The Month

Author: Microsoft

Type any date inside the InputBox ,and get the last day of month in this
date.

Form Code

Private Sub Form_Load()
Dim TEMP2 As Date
Dim nLastDay As Integer
TEMP2 = InputBox$("Please Enter A Date", "LastDay")
nLastDay = DatePart("d", DateAdd("M", 1, TEMP2 - DatePart("d", TEMP2)))
MsgBox nLastDay
End Sub