效果如下图所示：

本月天数: Day(DateAdd("d",-1,Format(DateAdd("m",+1,Date()))))

上月天数: Day(DateAdd("d",-1,Format(Date(),"yyyy-mm-01")))

下月天数: Day(DateAdd("d",-1,Format(DateAdd("m",+2,Date()))))
文章来自:Access之家(http://www.AccessHome.cn/) 详细出处请参考：http://accesshome.5d6d.com/thread-4279-1-1.html