Returning the Last Day of a Month

Returning the Last Day of a Month

I have a form from which I am searching a database.The search is being conducted between a startdate and an enddate.As the default I’d like to have the first and last day of the last month.

Year(Now()) & Month(Now())-1 & “01” returns the first day of month -1, but how do I do to get the last day?

Try this using VB6:

Dim d As DateDim n As IntegerDim dEndofMonthd = Month(Now) + 1 & "/1/" & Year(Now)n = DateDiff("d", Now, d)dEndofMonth = Now + (n-1)


Share the Post: