VBS日期(時(shí)間)格式化函數(shù)代碼
發(fā)布日期：2021-12-26 15:59 | 文章來(lái)源：CSDN
核心代碼
currentTimeStr1 = CStr(Year(Now()))&"-"&Right("0"&Month(Now()),2)&"-"&Right("0"&Day(Now()),2)&" "&Right("0"&Hour(Now()),2)&":"&Right("0"&Minute(Now()),2)&":"&Right("0"&Minute(Now()),2)
currentTimeStr2 = CStr(Year(Now()))&"-"&Right("0"&Month(Now()),2)&"-"&Right("0"&Day(Now()),2)
WScript.Echo currentTimeStr1 '2019-04-11 15:57:57
WScript.Echo currentTimeStr2 '2019-04-11
'格式化時(shí)間方法 n_Flag(1-5)
WScript.Echo Format_Time(Now(),5)
Function Format_Time(s_Time, n_Flag)
Dim y, m, d, h, mi, s
Format_Time = ""
If IsDate(s_Time) = False Then Exit Function
y = cstr(year(s_Time))
m = cstr(month(s_Time))
If len(m) = 1 Then m = "0" & m
d = cstr(day(s_Time))
If len(d) = 1 Then d = "0" & d
h = cstr(hour(s_Time))
If len(h) = 1 Then h = "0" & h
mi = cstr(minute(s_Time))
If len(mi) = 1 Then mi = "0" & mi
s = cstr(second(s_Time))
If len(s) = 1 Then s = "0" & s
Select Case n_Flag
Case 1
' yyyy-mm-dd hh:mm:ss
Format_Time = y & "-" & m & "-" & d & " "& h &":" & mi &":" & s
Case 2
' yyyy-mm-dd
Format_Time = y & "-" & m & "-" & d
Case 3
' hh:mm:ss
Format_Time = h & ":" & mi & ":" & s
Case 4
' yyyy年mm月dd日
Format_Time = y & "年" & m & "月" & d & "日"
Case 5
' yyyymmdd
Format_Time = y & m & d
End Select
End Function
vbscript下格式化時(shí)間和日期的函數(shù)
我們有時(shí)候遇到的日期格式可能是2020-1-12 ,系統(tǒng)自動(dòng)將月份中的0去掉了，但是有時(shí)候我們需要完整的日期格式 ，如：2020-01-12 那么怎么辦呢？下面的幾個(gè)函數(shù)可以輕松搞定
'將一個(gè)一位的數(shù)字前面加零 function FillZero(str) ttt=str if len(str)=1 then ttt="0" & str end if FillZero=ttt end function '轉(zhuǎn)化日期，將 一位補(bǔ)上零 2003-1-2 --> 2003-01-02 function ConvertDate(tDate) ttt=tDate if isdate(tDate) then ttt=year(tDate) & "-" & FillZero(month(tDate)) & "-" & FillZero(day(tDate)) end if ConvertDate=ttt end function '輸入一個(gè)日期時(shí)間串，轉(zhuǎn)換成年四位，其他兩位的新的日期時(shí)間串 function ConvertDateTime(tDateTime) ttt=tDateTime if isdate(tDateTime) then ttt=year(tDateTime) & "-" & FillZero(month(tDateTime)) & "-" & FillZero(day(tDateTime)) & " " & FillZero(cstr(hour(tDateTime))) & ":" & FillZero(cstr(minute(tDateTime))) & ":" & FillZero(cstr(second(tDateTime))) end if ConvertDateTime=ttt end function
這篇文章就介紹到這了，需要的朋友可以參考一下。
版權(quán)聲明：本站文章來(lái)源標(biāo)注為YINGSOO的內(nèi)容版權(quán)均為本站所有，歡迎引用、轉(zhuǎn)載，請(qǐng)保持原文完整并注明來(lái)源及原文鏈接。禁止復(fù)制或仿造本網(wǎng)站，禁止在非www.sddonglingsh.com所屬的服務(wù)器上建立鏡像，否則將依法追究法律責(zé)任。本站部分內(nèi)容來(lái)源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來(lái)，僅供學(xué)習(xí)參考，不代表本站立場(chǎng)，如有內(nèi)容涉嫌侵權(quán)，請(qǐng)聯(lián)系alex-e#qq.com處理。
相關(guān)文章
關(guān)注官方微信