Sure thing:

Code:
Public Function GetlastDayofMonth(pDate As Date)
    GetlastDayofMonth = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
End Function
Usage: GetlastDayofMonth YourDate

Example:
Code:
MsgBox "This year " & Format(Date, "mmmm") & " has " & GetlastDayofMonth(Date) & " days."

Regards,

------------------

Serge

Software Developer
[email protected]
[email protected]




[This message has been edited by Serge (edited 10-30-1999).]