Question:
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?
Answer:
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)