Format 函数

项目
08/18/2008

更新：2007 年 11 月

返回根据格式 String 表达式中包含的指令设置格式的字符串。

Public Shared Function Format( _
   ByVal Expression As Object, _
   Optional ByVal Style As String = "" _
) As String

参数

Expression
必选。任何有效的表达式。
Style
可选。一个有效的命名或用户定义的格式 String 表达式。

设置

有关如何创建 Style 参数的信息，请参见下面列出的相应主题：

要格式化的内容	执行此操作
数字	使用预定义的数字格式或创建用户定义的数字格式。
日期和时间	使用预定义的日期/时间格式或创建用户定义的日期/时间格式。
日期和时间序列数	使用日期和时间格式或数字格式。

如果试图在不指定 Style 的情况下格式化数字，则 Format 函数提供的功能与 Str 函数提供的功能相似（尽管它是国际通用）。然而，使用 Format 函数格式化为字符串的正数不包含为值的符号保留的前导空格；而使用 Str 函数转换的那些正数则保留前导空格。

备注

如果格式化非本地化数字字符串，应使用用户定义的数字格式，以确保得到所需的外观。

String.Format 方法也提供了类似的功能。

示例

此示例演示同时使用 String 格式和用户定义格式格式化值的 Format 函数的各种用法。对于日期分隔符 (/)、时间分隔符 (:) 和 AM/PM 指示符（t 和 tt），系统显示的实际格式化输出取决于代码使用的区域设置。当在开发环境中显示时间和日期时，使用代码区域设置的短时间格式和短日期格式。

说明：
对于使用 24 小时制的区域设置，AM/PM 指示符（t 和 tt）不显示任何内容。

Dim TestDateTime As Date = #1/27/2001 5:04:23 PM#
Dim TestStr As String
' Returns current system time in the system-defined long time format.
TestStr = Format(Now(), "Long Time")
' Returns current system date in the system-defined long date format.
TestStr = Format(Now(), "Long Date")
' Also returns current system date in the system-defined long date 
' format, using the single letter code for the format.
TestStr = Format(Now(), "D")

' Returns the value of TestDateTime in user-defined date/time formats.
' Returns "5:4:23".
TestStr = Format(TestDateTime, "h:m:s")
' Returns "05:04:23 PM".
TestStr = Format(TestDateTime, "hh:mm:ss tt")
' Returns "Saturday, Jan 27 2001".
TestStr = Format(TestDateTime, "dddd, MMM d yyyy")
' Returns "17:04:23".
TestStr = Format(TestDateTime, "HH:mm:ss")
' Returns "23".
TestStr = Format(23)

' User-defined numeric formats.
' Returns "5,459.40".
TestStr = Format(5459.4, "##,##0.00")
' Returns "334.90".
TestStr = Format(334.9, "###0.00")
' Returns "500.00%".
TestStr = Format(5, "0.00%")