Find last Day of a Month

Dim dt As DateTime = DateTimePicker1.Value
Dim days1 As Integer = Date.DaysInMonth(dt.Year(), dt.Month)
MsgBox("Last Day of " & dt.ToString("MMMM") & " is " & days1) 'Long Format("September")
MsgBox("Last Day of " & dt.ToString("MMM") & " is " & days1) 'Short ("Sep")
MsgBox("Last Day of " & dt.Month.ToString() & " is " & days1) 'Integer Format("9")


Any Doubt Plz post a Comment.

with Regards
santosh