使用VBS获取当前日期的前一天 并修正输出格式

获取当前日期方法一：

复制代码 代码如下:
currentdate1=date()
msgbox Currentdate1

获取当前日期方法二：

复制代码 代码如下:
Currentdate2=year(Now)& "-"& month(Now)& "-"& day(Now)
msgbox Currentdate2

补充一个：如果想获取的日期前面是1位数的前面补0的写法，例如 2016年5月16，如果目录是2016516不如20160516更好

复制代码 代码如下:
ystr=year(Now)
mstr=Month(Now)
if len(mstr)2 then mstr="0"& mstr
dstr=day(Now)
dateML=ystr& mstr& dstr
msgbox(dateml)

获取当前时间：

复制代码 代码如下:
CurrentTime=Hour(Now)& ":"& Minute(Now)& ":"& Second(Now)
m = "当前时间"& CurrentTime
msgbox m

windows下使用vbS取当前日期的前一天，并修正输出格式

my_date1 = DateAdd("d",-1,date)

作用：取当前时间的前一天（当前时间以系统时间为准）并将结果赋予变量my_date1
my_date2 = DatePart("yyyy",my_date1) & "-" & Right("0" & DatePart("m",my_date1), 2) & "-" & Right("0" & DatePart("d",my_date1),2)

作用：不考虑系统设定的时间格式（默认为YYYY/M/D），修改输出时间格式为YYYY-MM-DD,并将结果赋予变量my_date2

查看输出的时间：

msgbox my_date1
msgbox my_date2

以上脚本在windows2003、2008下测试通过

• 用VBSrcipt判断是否是日期
• 用vbs实现按创建日期的顺序列出一个文件夹中的所有文件
• 用vbs判断一个日期是否在指定的时段内
• 用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名
• vbs下通过日期查找文件夹的代码
• VBS的字符串及日期操作相关函数
• 用VBS修改（设置）系统时间和日期的代码
• vbs获取当前时间日期的代码

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！