如何使VBScript中的日期函数动态，获取当前日期的上一个日期？

Question

我这里的代码将根据文件名复制文件，文件名表示获取当前日期的上一个日期，但我的问题是这个月的第一天。

FSO.CopyFile "D:\Input\rep_*" & Year(Now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now - 1), 2) & ".txt", "D:\Output\"

我的约会功能是：年（现在）＆amp;正确（“0”和“月”（现在），2）＆amp;对（“0”和日（现在 - 1），2）

正如您所看到的，日功能将从前一天开始，因为它是负1. 日（现在 - 1）

我的问题是这个月的第一天。例如，今天是2016年8月1日。根据上面的日期函数，它会找到 160831 而不是 160731 。我也担心，因为几个月结束时 30 和 31 。

有没有办法动态地使用VBScript获取上一个日期？提前谢谢。

Answer 1

如果您想要昨天，请在实际日期之前花一天格式化它，如下所示：

首先找到昨天：

y = DateAdd("d",-1,Date())

现在格式化：

y = DateAdd("d",1,Date())
z = Year(y) & Right("0" & Month(y), 2) & Right("0" & Day(y), 2)