使用VBS獲取當(dāng)前日期的前一天并修正輸出格式

來源：本站原創(chuàng)|時(shí)間：2020-01-10|欄目：vb|點(diǎn)擊：次

獲取當(dāng)前日期方法一：

復(fù)制代碼代碼如下:

Currentdate1=date()

msgbox Currentdate1

獲取當(dāng)前日期方法二：

復(fù)制代碼代碼如下:

Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)

msgbox Currentdate2

補(bǔ)充一個(gè)：如果想獲取的日期前面是1位數(shù)的前面補(bǔ)0的寫法，例如 2016年5月16，如果目錄是2016516不如20160516更好

復(fù)制代碼代碼如下:

ystr=year(Now)

mstr=Month(Now)

if len(mstr)<2 then mstr="0"&mstr

dstr=day(Now)

dateml=ystr&mstr&dstr

msgbox(dateml)

獲取當(dāng)前時(shí)間：

復(fù)制代碼代碼如下:

CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)

m = "當(dāng)前時(shí)間"& CurrentTime 

msgbox m

windows下使用VBS取當(dāng)前日期的前一天，并修正輸出格式

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

作用：取當(dāng)前時(shí)間的前一天（當(dāng)前時(shí)間以系統(tǒng)時(shí)間為準(zhǔn)）并將結(jié)果賦予變量my_date1
my_date2 = DatePart("yyyy",my_date1) & "-" & Right("0" & DatePart("m",my_date1), 2) & "-" & Right("0" & DatePart("d",my_date1),2)

作用：不考慮系統(tǒng)設(shè)定的時(shí)間格式（默認(rèn)為YYYY/M/D），修改輸出時(shí)間格式為YYYY-MM-DD,并將結(jié)果賦予變量my_date2

查看輸出的時(shí)間：

msgbox my_date1
msgbox my_date2

以上腳本在windows2003、2008下測試通過

上一篇：使用vbs腳本定時(shí)刪除N天前的文件

欄目：vb

下一篇：vbs 查找硬盤分區(qū)中指定擴(kuò)展名文件的實(shí)現(xiàn)代碼

本文標(biāo)題：使用VBS獲取當(dāng)前日期的前一天并修正輸出格式

本文地址：http://www.jygsgssxh.com/a1/vb/7284.html

更多vb