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

    这篇文章就介绍到这了,需要的朋友可以参考一下。