Date 使用VBScript格式化前一天的日期格式yyyymmdd

我需要使用VBScript将前一天的日期格式化为此格式：

yyyymmdd

我尝试过这个解决方案：

NewData = 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(DateAdd("d",-1, Now())), 2)  

但不是得到：

20190630

我有：

20190730

你能帮我吗

---

提前感谢您的帮助。

您应该首先将昨天存储在一个变量中，然后在此日期执行格式化魔术

dim yesterday
yesterday = DateAdd("d",-1, Now())
NewData = Right(Year(DateSerial(Year(yesterday),Month(yesterday),1)),4) _
        & Right(String(2, "0") _
        & Month(DateSerial(Year(yesterday),Month(yesterday),1)), 2) _
        & Right(String(2, "0") & Day(yesterday), 2) 

---

但是，我强烈怀疑有更直接的方法可以获取YYYYMMDD格式的日期。

@Cid谢谢。恐怕我已经转换了太多的syntaxis了。不确定这是否应该作为一个副本关闭。OP的格式化部分没有问题，只是前一天的部分有问题。