First Date of last month
=DateAdd("m", -1, DateSerial(Year(Now()), Month(Now()), 1))
=Today.AddDays(1- Today.Day).AddMonths(-1)
Last date of last month
=DateAdd("d", -1, DateSerial(Year(Now()), Month(Now()), 1))
=Today.AddDays(-1.0 * Today.Day)
First date of current month
=DateSerial(Year(Now()), Month(Now()), 1)
=Today.AddDays(1 - Today.Day)
Last date of current month
=DateAdd("d",-1,(DateAdd("m", 1, DateSerial(Year(Now()), Month(Now()), 1))))
=Today.AddDays(-1 * Today.Day).AddMonths(1)
Yesterday's date
=DateAdd("d", -1, Today)
=Today.AddDays(-1)
Tomorrow's date
=DateAdd("d", 1, Today)
=Today.AddDays(1)
* Monday of current week
=DateAdd("d", 2 - DatePart("w",Today) , Today)
=Today.AddDays(1- Today.DayOfWeek)
* Friday current week
=DateAdd("d", 6 - DatePart("w",Today) , Today)
=Today.AddDays(5- Today.DayOfWeek)
First day of current year
=DateSerial(Year(Now()), 1, 1)
=Today.AddDays(1- Today.DayOfYear)
Last day of current year
=DateSerial(Year(Now()), 12, 31)
=Today.AddDays(-1 * Today.DayOfYear).AddYears(1)
First day of current quarter
=DateSerial(Year(Now()), (3*DatePart("q",Now()))-2, 1)
=Today.AddDays(1- Today.DayOfYear).AddMonths((3 * (((Today.Month-1) \ 3) + 1) ) -3)
Last day of current quarter
=DateAdd("d",-1,DateAdd("q",1,DateSerial(Year(Now()), (3*DatePart("q",Now()))-2, 1)))
=Today.AddDays(1- Today.DayOfYear).AddMonths((3 * (((Today.Month-1) \ 3) + 1) )).AddDays(-1)