用VBScript格式化前一天的日期格式yyyymmdd [重复]答案

【问题标题】：Format the date of the previous day format yyyymmdd with VBScript [duplicate]用VBScript格式化前一天的日期格式yyyymmdd [重复]
【发布时间】：2019-07-01 20:58:57
【问题描述】：

我需要用这种格式格式化前一天的日期，用 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

你能帮帮我吗？

提前感谢您的帮助。

【问题讨论】：

不确定是否应该将其作为副本关闭。 OP 的格式部分没有问题，但只有“前一天”部分。

标签： date vbscript format

【解决方案1】：

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

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 谢谢。恐怕我切换语法太多了。