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