vb 取某一天的日期

'本月最后一天
DateSerial(year(date),   month(date)+1,   0)
'上个月最后一天
DateSerial(year(date),   month(date),   0)
'上上个月最后一天
DateSerial(year(date),   month(date)-1,   0)
'本月第一天
DateSerial(year(date),   month(date),   1)
'上个月第一天
DateSerial(year(date),   month(date)-1,   1)
'上上个月第一天
DateSerial(year(date),   month(date)-2,   1)
【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/Spacecup/p/3596085.html