VBScript中格式化輸出日期的方法

 

 

在使用VBScript中經常需要使用格式化輸出日期的方法，總結也一下，如下：

 

1.使用FormatDateTime函數

此函數返回運算式，此運算式已被格式化為日期或時間。

FormatDateTime 函數使用格式為FormatDateTime(Date[, NamedFormat])

其中

Date為必選項。要被格式化的日期運算式。

NamedFormat為可選項。指示所使用的日期/時間格式的數值，如果省略，則使用 vbGeneralDate。

NamedFormat 參數能有以下值：

常數	值	描述
vbGeneralDate	0	顯示日期和/或時間。如果有日期部分，則將該部分顯示為短日期格式。如果有時間部分，則將該部分顯示為長時間格式。如果都存在，則顯示所有部分。
vbLongDate	1	使用電腦地區設定中指定的長日期格式顯示日期。
vbShortDate	2	使用電腦地區設定中指定的短日期格式顯示日期。
vbLongTime	3	使用電腦地區設定中指定的時間格式顯示時間。
vbShortTime	4	使用 24 小時格式 (hh:mm) 顯示時間。

 

 

2.自訂輸出，如將2010年9月9日輸出為20100909

但VBScript內建的日期格式功能不支援兩位元日期的格式，如果使用如下代碼

strDate= CStr(Year(Now()))&Cstr(Month(Now()))&Cstr(Day(Now()))

則strDate中的字元為201099

解決此問題的方法有如下幾種：

1）寫一個處理函數，比如叫做Get2Digits

if len(month(now))=1 then month="0"&month

這樣每次都調用這個函數即可。

2）我們也可以通過這種方式擷取：right("0"&Month(now),2)，這個函數的作用實際上很簡單，先給月份前面強制加字元“0”，這樣格式就變成了06、08、012，然後取右邊的兩個字元，也就是06、08、12。這樣既簡短又避免了過多的if判斷語句導致程式執行變慢的問題。這種方法顯然要好很多。則剛才的可以改為

strDate=CStr(Year(Now()))&Right("0"&Month(Now()),2)&Right("0"&Day(Now()),2)

3）Now()輸出的格式為2010/09/09 12:47:59

所以我們也可以採取這種方式格式化輸出日期

strDate=Left(Now(),4)&Mid(Now(),6,2)&Mid(Now(),9,2)

但是，有一點注意，我測試了一下，這種方式在日文OS下是可以使用的，因為此時Now()的結果是2010/09/09 12:47:59這種格式的，但是在英文OS下Now()的結果是09/09/2010 12:47:59,此時就要對上面的方法變更，這個要十分注意。