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
'格式化時間方法 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
我們有時候遇到的日期格式可能是2020-1-12 ,系統自動將月份中的0去掉了，但是有時候我們需要完整的日期格式 ，如：2020-01-12 那么怎么辦呢？下面的幾個函數可以輕松搞定
'將一個一位的數字前面加零
function FillZero(str)
ttt=str
if len(str)=1 then
ttt="0" str
end if
FillZero=ttt
end function
'轉化日期，將 一位補上零 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
'輸入一個日期時間串，轉換成年四位，其他兩位的新的日期時間串
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
