本周
Format(Date - Weekday(Now, vbMonday) + 1, "yyyy-mm-dd") '本周一
Format(Date - Weekday(Now, vbMonday) + 7, "yyyy-mm-dd") '本周日
本年度
DateSerial(Year(Now), 1, 1)
DateSerial(Year(Now), 12, 31)
本月
DateSerial(Year(Now), Month(Now), 1)
DateSerial(Year(Now), Month(Now) + 1, 0)
上月
DateSerial(Year(Now), Month(Now) - 1, 1) '上月一日
DateSerial(Year(Now), Month(Now), 0) '上月最后一日