You can use this:

Public Function GetEOM(ByVal pdtmdate As Variant) As Date
    GetEOM = DateAdd("d", -1, DateSerial(Year(pdtmdate), Month(pdtmdate) + 1, 1))
End Function

>Hi all,
>
>i would like to know if there a function can be recall the last date of the month.
>
>Kevin