使用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下測試通過
相關文章
Adsutil.vbs 在腳本攻擊中的妙用[我非我原創(chuàng)]
Adsutil.vbs 在腳本攻擊中的妙用[我非我原創(chuàng)]...2007-03-03用VBS調用程序并對程序的運行情況進行監(jiān)控的兩個代碼
用VBS調用程序并對程序的運行情況進行監(jiān)控的兩個代碼...2007-03-03