VBS日期(时间)格式化函数代码_VBS

VBS日期(时间)格式化函数代码

2020-08-20 10:33VBS代码网 VBS

这篇文章主要介绍了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.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