VBA for calculating last month

[DubCap01]

Hi all,



New to the forum, but not to MS Access...
Am trying to hit a command button, which will then return two dates, one date first of the month, second date, last of the month, regardless of what month. However, if today is 22 Sep 2014, and I click the button that says [LAST MONTH], I'd like to populate the two dates with 1-Aug-2014 and 31-Aug-2014. Is this feasible?

thanks in anticipation
DubCap01

[ranman256]

IF you know current date, add 1 month, then subract 1 day

vDate = month(date()) & "/1/" & year(date())

   'next month range
vLastDayOMo = DateAdd("d", -1, DateAdd("m", 1, vDate))

   'LAST month range
vDate = DateAdd("m", -1, vDate))
vLastDayOMo = DateAdd("d", -1, DateAdd("m", 1, vDate))

[JoeM]

Here is how you can calculate those dates:

StartOfLastMonth: DateSerial(Year(Date), Month(Date) - 1, 1)
EndOfLastMonth: DateSerial(Year(Date), Month(Date), 1) - 1