ms-access - 如何在VB中获得上个月的开始和结束

Question

我正在尝试创建一些 VB 代码来获取上个月的开始和结束时间。
我可以到当前月份，即:

Month(DateValue(Now))

这将返回 3。从那里我可以拿走 1 给我 2，意思是二月。这很好，但是当我在 1 月份重复此操作时，结果为零 - 我的代码将失败。有谁知道如何获得前几个月的开始和结束日？

谢谢

Answer 1

上个月的第一天始终为 1，要获取上个月的最后一天，请将 0 与 DateSerial 一起使用:

''Today is 20/03/2013 in dd/mm/yyyy
DateSerial(Year(Date),Month(Date),0) = 28/02/2013 
DateSerial(Year(Date),1,0) = 31/12/2012 

您可以从上面获得第一天，如下所示:

LastDay = DateSerial(Year(Date),Month(Date),0)
FirstDay = LastDay-Day(LastDay)+1

另见: How to caculate last business day of month in VBScript