|
|
Using Native VB Functions
|
Using .Net Properties and Functions
|
|
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)
|