本文介绍了一种使用VBA代码来生成特定时间段内的起始与结束日期的方法。这些时间段包括一周、一个月、一年及一季度。通过简单的代码实现，可以方便地获取如本周、本月、本年度或当前季度的具体日期范围。
'一周
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))
扫一扫
评论
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
查看更多评论
添加红包
