本示例顯示用 Format 函數做格式化輸出的不同用法.對於日期分隔號(/),時間分隔號(:),以及 AM/ PM 等文本而言,其真正的顯示格式會因計算機上的國際標準不同而有所差異.在開發階段,日期與時間是以短日期的格式,配合代碼的國際標準來顯示的.而在運行時,短日期則是根據系統的國際標準而定,而系統的國際標準和代碼的國際標準可能並不相同.本示例中是假設國際標準為 English/United States.
MyTime 及 MyDate 在開發環境下,使用系統的短日期設置顯示出來的.
Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#
' 以系統設置的長時間格式返回當前系統時間.
MyStr = Format(Time, "Long Time")
' 以系統設置的長日期格式返回當前系統日期.
MyStr = Format(Date, "Long Date")
MyStr = Format(MyTime, "h:m:s") ' 返回 "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' 返回 "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' 返回 "Wednesday, Jan 27 1993".
' 如果沒有指定格式,則返回字符串.
MyStr = Format(23) ' 返回 "23".
' 用戶自定義的格式.
MyStr = Format(5459.4, "##,##0.00") ' 返回 "5,459.40".
MyStr = Format(334.9, "###0.00") ' 返回 "334.90".
MyStr = Format(5, "0.00%") ' 返回 "500.00%".
MyStr = Format("HELLO", "") ' 返回 "THIS IS IT".