'一周
date_from = DateAdd("d", 2-Weekday(Date()), Date())
date_to = DateAdd("d", 6, date_from)
'一个月
date_from = CDate(Year(Date()) & "-" & Month(Date()) & "-1")
date_to = DateAdd("d", -1, DateAdd("m", 1, date_from))
'一年
date_from = CDate(Year(Date()) & "-1-1")
date_to = DateAdd("d", -1, DateAdd("yyyy", 1, date_from))
'一季度
date_from = CDate(Year(Date()) & "-" & (Int(Month(Date())/3+0.9)-1)*3+1 & "-1")
date_to = DateAdd("d", -1, DateAdd("m", 3, date_from))