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

Question

我这里有这段代码，它将根据文件名复制文件，文件名意味着获取当前日期的前一个日期，但是我的问题是该月的第一天。

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

我的日期函数是： Year（Now）＆Right（“ 0”＆Month（Now），2）＆Right（“ 0”＆Day（Now-1），2）

正如您所看到的， Day函数将获得前一天，因为它是负1。Day（Now-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)