国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板: 台山市| 连城县| 财经| 门源| 武威市| 南溪县| 信丰县| 台南市| 扶沟县| 乐陵市| 荣昌县| 陇南市| 曲水县| 丰都县| 庆安县| 桐庐县| 报价| 翁牛特旗| 育儿| 平邑县| 尼木县| 石家庄市| 那坡县| 北辰区| 黄陵县| 达日县| 长武县| 余姚市| 崇礼县| 吉林省| 闸北区| 囊谦县| 万年县| 铜山县| 南华县| 泰和县| 宁化县| 桃江县| 安新县| 临沭县| 柳州市|