想要从当前日期获取上一个日期

Question

我在从当前日期获取上一个日期时遇到问题。但我只想改变几个月。例如，现在是八月，我希望输出显示3个月前= 5月。 继承了我写的代码

givenDate= "14-August-15"

DD = Day (givenDate)
'MsgBox DD

MM = Month (givenDate)
'MsgBox MM

YY = Year (givenDate)
'MsgBox YY 

SysDate = DD&"/"&MM&"/"&YY

MsgBox Month(DateAdd("m", -3, "14-August-2015"))
'MsgBox(FormatDateTime(SysDate,1))

Answer 1

如果您只需要显示3个月前的月份名称，请合并DateAdd()，Month()和MonthName()。例如：

Dim dt1, dt2
dt1 = Date()                        ' Use today's date, for example
dt2 = DateAdd("m", -3, dt1)         ' Subtract 3 months

WScript.Echo MonthName(Month(dt2))  ' Display the name of the month

Month()返回月份编号（1 - 12）。 MonthName()获取该数字并返回月份名称（"January" - "December"）。