Code Snippets → Return Last Date Of Month

Got this from a post by Allan Bunch (RuralGuy) on Access World Forums.

Public Function ReturnLastDateOfMonth()
    ReturnLastDateOfMonth = DateSerial(Year(#2/1/2008#), Month(#2/1/2008#) + 1, 0)
End Function