如何在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下格式化時間和日期的函數(shù)

我們有時候遇到的日期格式可能是2020-1-12   ,系統(tǒng)自動將月份中的0去掉了，但是有時候我們需要完整的日期格式 ，如：2020-01-12  那么怎么辦呢？下面的幾個函數(shù)可以輕松搞定

'將一個一位的數(shù)字前面加零
function FillZero(str)
   ttt=str
   if len(str)=1 then
      ttt="0" & str
   end if
   FillZero=ttt
end function

'轉(zhuǎn)化日期，將 一位補上零  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

'輸入一個日期時間串，轉(zhuǎn)換成年四位，其他兩位的新的日期時間串
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

看完上述內(nèi)容是否對您有幫助呢？如果還想對相關知識有進一步的了解或閱讀更多相關文章，請關注億速云行業(yè)資訊頻道，感謝您對億速云的支持。