国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

使用VBS獲取當前日期的前一天 并修正輸出格式

2020-07-26 11:47:08
字體:
來源:轉載
供稿:網友

獲取當前日期方法一:

復制代碼 代碼如下:

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)

作用:取當前時間的前一天(當前時間以系統(tǒng)時間為準)并將結果賦予變量my_date1
my_date2 = DatePart("yyyy",my_date1) & "-" & Right("0" & DatePart("m",my_date1), 2) & "-" & Right("0" & DatePart("d",my_date1),2)

作用:不考慮系統(tǒng)設定的時間格式(默認為YYYY/M/D),修改輸出時間格式為YYYY-MM-DD,并將結果賦予變量my_date2

查看輸出的時間:

msgbox my_date1
msgbox my_date2

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

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 宜阳县| 扶沟县| 鄢陵县| 靖江市| 林口县| 卓资县| 漳平市| 乐清市| 治多县| 扶沟县| 汾阳市| 武宁县| 西贡区| 保康县| 噶尔县| 鄂托克旗| 夹江县| 巴中市| 陇南市| 景泰县| 巴彦淖尔市| 辽中县| 密山市| 科技| 应城市| 安仁县| 蕉岭县| 香格里拉县| 华阴市| 永福县| 普兰店市| 磐安县| 忻城县| 湘潭县| 乐昌市| 五寨县| 宜川县| 云安县| 宁城县| 临沭县| 武定县|