核心代码
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
vbscript下格式化时间和日期的函数
我们有时候遇到的日期格式可能是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
这篇文章就介绍到这了，需要的朋友可以参考一下。
