vbs：擷取目前日期的前n天

代碼如下，可以根絕自己需求更改，将代碼儲存在txt文本下，更改檔案名為date.vbs,輕按兩下運作檢視輸出結果

rem ---windows下使用VBS取目前日期的前一天，并修正輸出格式---
rem ----作用：取目前時間的前1天（目前時間以系統時間為準）并将結果賦予變量my_date1---
my_date1 = DateAdd("d",-1,date)

rem ----作用：取目前時間的前2天（目前時間以系統時間為準）并将結果賦予變量my_date1---
my_date4 = DateAdd("d",-2,date)


rem ---作用：不考慮系統設定的時間格式（預設為YYYY/M/D），修改輸出時間格式為YYYYMMDD,并将結果賦予變量my_date2---
my_date2 = DatePart("yyyy",my_date1)&""& Right("0" & DatePart("m",my_date1), 2)&""&Right("0" & DatePart("d",my_date1),2)

rem ---作用：不考慮系統設定的時間格式（預設為YYYY/M/D），修改輸出時間格式為YYYY-MM-DD,并将結果賦予變量my_date3---
my_date3 = DatePart("yyyy",my_date1)&"-"& Right("0" & DatePart("m",my_date1), 2)&"-"&Right("0" & DatePart("d",my_date1),2)

rem ---檢視輸出的時間：---
msgbox my_date1 
msgbox my_date2
msgbox my_date3
msgbox my_date4