First date of Current Month =Today.AddDays(1-Today.Day) last date of Current Month =Today.AddDays(1-Today.Day).AddMonths(1).AddDays(-1) First date of Current Year =Today.AddMonths(1-Today.month).AddDays(1-Today.day) Last date of Current Year =Today.AddDays(1-Today.Day).AddMonths(13-today.month).AddDays(-1) Previous Month Last Date =DateAdd("d",-(Day(today)), Today) Previous Month First Date =dateadd(dateinterval.month, -1, today().AddDays(-(today().Day-1))) Beginning of Current Month (EOM) =DateSerial(Year(Date.Now), Month(Date.Now), 1) Beginning of Last Month (BOM) =DateAdd(DateInterval.Month, -1, DateSerial(Year(Date.Now), Month(Date.Now), 1)) End of Last Month (EOM) =DateAdd(DateInterval.Minute, -1, DateSerial(Year(Date.Now), Month(Date.Now), 1)) Note : Gathered from google. Thanks to all bloggers