VBS日期(时间)格式化函数代码
核心代码
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.EchocurrentTimeStr1'2019-04-1115:57:57
WScript.EchocurrentTimeStr2'2019-04-11
'格式化时间方法n_Flag(1-5)
WScript.EchoFormat_Time(Now(),5)
FunctionFormat_Time(s_Time,n_Flag)
Dimy,m,d,h,mi,s
Format_Time=""
IfIsDate(s_Time)=FalseThenExitFunction
y=cstr(year(s_Time))
m=cstr(month(s_Time))
Iflen(m)=1Thenm="0"&m
d=cstr(day(s_Time))
Iflen(d)=1Thend="0"&d
h=cstr(hour(s_Time))
Iflen(h)=1Thenh="0"&h
mi=cstr(minute(s_Time))
Iflen(mi)=1Thenmi="0"&mi
s=cstr(second(s_Time))
Iflen(s)=1Thens="0"&s
SelectCasen_Flag
Case1
'yyyy-mm-ddhh:mm:ss
Format_Time=y&"-"&m&"-"&d&""&h&":"&mi&":"&s
Case2
'yyyy-mm-dd
Format_Time=y&"-"&m&"-"&d
Case3
'hh:mm:ss
Format_Time=h&":"&mi&":"&s
Case4
'yyyy年mm月dd日
Format_Time=y&"年"&m&"月"&d&"日"
Case5
'yyyymmdd
Format_Time=y&m&d
EndSelect
EndFunction
vbscript下格式化时间和日期的函数
我们有时候遇到的日期格式可能是2020-1-12 ,系统自动将月份中的0去掉了，但是有时候我们需要完整的日期格式，如：2020-01-12 那么怎么办呢？下面的几个函数可以轻松搞定
'将一个一位的数字前面加零
functionFillZero(str)
ttt=str
iflen(str)=1then
ttt="0"&str
endif
FillZero=ttt
endfunction
'转化日期，将一位补上零 2003-1-2 --> 2003-01-02
functionConvertDate(tDate)
ttt=tDate
ifisdate(tDate)then
ttt=year(tDate)&"-"&FillZero(month(tDate))&"-"&FillZero(day(tDate))
endif
ConvertDate=ttt
endfunction
'输入一个日期时间串，转换成年四位，其他两位的新的日期时间串
functionConvertDateTime(tDateTime)
ttt=tDateTime
ifisdate(tDateTime)then
ttt=year(tDateTime)&"-"&FillZero(month(tDateTime))&"-"&FillZero(day(tDateTime))&""&FillZero(cstr(hour(tDateTime)))&":"&FillZero(cstr(minute(tDateTime)))&":"&FillZero(cstr(second(tDateTime)))
endif
ConvertDateTime=ttt
endfunction
这篇文章就介绍到这了，需要的朋友可以参考一下。