如何使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)