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:57WScript.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 SelectEnd 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=tttend function'转化日期，将 一位补上零  2003-1-2  -->
      2003-01-02function ConvertDate(tDate)   ttt=tDate   if isdate(tDate) then      ttt=year(tDate) &
     "-" &
     FillZero(month(tDate)) &
     "-" &
     FillZero(day(tDate))   end if   ConvertDate=tttend 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=tttend function

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

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！