Format 函式示例
本示例顯示用 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", "
MyStr = Format("This is it", ">") " 返回 "THIS IS IT"。
回 Variant (String)，其中含有一個表示式，它是根據格式表示式中的指令來格式化的。
語法
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
Format 函式的語法具有下面幾個部分：
部分 說明
expression 必要引數。任何有效的表示式。
format 可選引數。有效的命名錶達式或使用者自定義格式表示式。
firstdayofweek 可選引數。常數，表示一星期的第一天。
firstweekofyear 可選引數。常數，表示一年的第一週。
設定值
firstdayofweek 引數有下面設定：
常數 值 說明
vbUseSystem 0 使用 NLS API 設定。
VbSunday 1 星期日（預設）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 引數有下面設定：
vbFirstJan1 1 從包含一月一日的那一週開始（預設）。
vbFirstFourDays 2 從本年第一週開始，而此周至少有四天在本年中。
VbFirstFullWeek 3 從本年第一週開始，而此周完全在本年中。
說明
格式化 作法
數字 使用預先定義的命名數值格式或建立使用者自定義數值格式。
日期和時間 使用預先定義的命名日期/時間格式或建立使用者自定義日期/時間格式。
日期和時間序數 使用日期和時間格式或數值格式。
字串 建立自定義的字串格式。
如果在格式化數字時沒有指定 format，Format 會提供與 Str 函式類似的功能，儘管它是國際化的。然而，以 Format 作用在正數上不會保留正負號空間，而以 Str 的話則會。
Format 函式示例
本示例顯示用 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", "
MyStr = Format("This is it", ">") " 返回 "THIS IS IT"。
回 Variant (String)，其中含有一個表示式，它是根據格式表示式中的指令來格式化的。
語法
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
Format 函式的語法具有下面幾個部分：
部分 說明
expression 必要引數。任何有效的表示式。
format 可選引數。有效的命名錶達式或使用者自定義格式表示式。
firstdayofweek 可選引數。常數，表示一星期的第一天。
firstweekofyear 可選引數。常數，表示一年的第一週。
設定值
firstdayofweek 引數有下面設定：
常數 值 說明
vbUseSystem 0 使用 NLS API 設定。
VbSunday 1 星期日（預設）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 引數有下面設定：
常數 值 說明
vbUseSystem 0 使用 NLS API 設定。
vbFirstJan1 1 從包含一月一日的那一週開始（預設）。
vbFirstFourDays 2 從本年第一週開始，而此周至少有四天在本年中。
VbFirstFullWeek 3 從本年第一週開始，而此周完全在本年中。
說明
格式化 作法
數字 使用預先定義的命名數值格式或建立使用者自定義數值格式。
日期和時間 使用預先定義的命名日期/時間格式或建立使用者自定義日期/時間格式。
日期和時間序數 使用日期和時間格式或數值格式。
字串 建立自定義的字串格式。
如果在格式化數字時沒有指定 format，Format 會提供與 Str 函式類似的功能，儘管它是國際化的。然而，以 Format 作用在正數上不會保留正負號空間，而以 Str 的話則會。