There is no function available for this task.

You can use this code for calculating the last day of any month.

Public Function LMonth(nMonth As Integer) As Integer
Dim ab As Date
ab = CDate(Str(nMonth + 1) + "/01/" + CStr(Year(Date)))
LMonth = Day(ab - 1)
End Function

Regards,
Rajiv Dutt
rajiv.dutt@mind-infotech.com