在 VBScript 中为不带时间的日期对象设置日期格式 YYYYMMDD

Question

当我尝试使用 YYYYMMDD

格式设置日期（不包括现在）时，我在 VBScript 中遇到了问题

我需要将两天前的日期与今天的日期进行比较。

我希望（今天的日期）使用以下代码可以解决问题 20210929。

相反，我有 202110-1

下面是我的代码

   MyDate = Right(Year(DateSerial(Year(Date),Month(Date),1)),4) &_
            Right(String(2, "0") &_
            Month(DateSerial(Year(Date),Month(Date),1)), 2) &_
            Right(String(2, "0") & Day(Now) -2, 2)

   MsgBox(MyDate)
   WScript.quit

谢谢

更新 #01

   MyDate = Right(Year(DateSerial(Year(Date),Month(Date),1)),4) &_
            Right(String(2, "0") &_
            Month(DateSerial(Year(Date),Month(Date),1)), 2) &_
            Right("00" & DateAdd("d", -2, Day(Now)), 2)

   MsgBox(MyDate)
   WScript.quit

输出20211099

Answer 1

先做天减法再做格式化，像这样：

d = DateAdd("d", -2, Now)
ymd = Year(d) & Right("0" & Month(d), 2) & Right("0" & Day(d), 2)
MsgBox ymd

在 VBScript 中为不带时间的日期对象设置日期格式 YYYYMMDD

Set Date in VBScript for Date object without Time on format YYYYMMDD

vbscript

date