VBScript格式化函数（FormatCurrency FormatDateTime FormatNumber FormatPercent）

FormatCurrency 函数

返回表达式，此表达式已被格式化为货币值（使用系统控制面板中定义的货币符号）。

FormatCurrency(
expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]]
)

参数

Expression

必选项。要被格式化的表达式。

NumDigitsAfterDecimal

可选项。指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。

IncludeLeadingDigit

可选项。三态常数，指示是否显示小数值小数点前面的零。有关数值，请参阅“设置”部分。

UseParensForNegativeNumbers

可选项。三态常数，指示是否将负值置于括号中。有关数值，请参阅“设置”部分。

GroupDigits

可选项。三态常数，指示是否使用计算机区域设置中指定的数字分组符号将数字分组。有关数值，请参阅“设置”部分。

设置

IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 参数可以有以下值：

常数 值 描述

TristateTrue	-1	True
TristateFalse	0	False
TristateUseDefault	-2	使用计算机区域设置中的设置。

说明

当省略一个或多个可选项参数时，由计算机区域设置提供被省略参数的值。 与货币值相关的货币符号的位置由系统的区域设置决定。

注意 除“显示起始的零”设置来自区域设置的“数字”附签外，所有其他设置信息均取自区域设置的“货币”附签。

下面例子利用 FormatCurrency 函数把 expression 格式化为 currency 并且赋值给 MyCurrency:

Dim MyCurrency
MyCurrency = FormatCurrency(1000)  'MyCurrency 包含 $1000.00 。

FormatDateTime 函数
返回表达式，此表达式已被格式化为日期或时间。
FormatDateTime(Date[, NamedFormat])
参数
Date
必选项。要被格式化的日期表达式。
NamedFormat
可选项。指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate。
设置
NamedFormat 参数可以有以下值：

常数 值 描述

vbGeneralDate	0	显示日期和/或时间。如果有日期部分，则将该部分显示为短日期格式。如果有时间部分，则将该部分显示为长时间格式。如果都存在，则显示所有部分。
vbLongDate	1	使用计算机区域设置中指定的长日期格式显示日期。
vbShortDate	2	使用计算机区域设置中指定的短日期格式显示日期。
vbLongTime	3	使用计算机区域设置中指定的时间格式显示时间。
vbShortTime	4	使用 24 小时格式 (hh:mm) 显示时间。

说明

下面例子利用 FormatDateTime 函数把表达式格式化为长日期型并且把它赋给 MyDateTime:

 Function GetCurrentDate 
  'FormatDateTime 把日期型格式化为长日期型。
  GetCurrentDate = FormatDateTime(Date, 1) 
End Function

FormatNumber 函数
返回表达式，此表达式已被格式化为数值。
FormatNumber(
  expression [,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]]
)
Arguments
Expression
必选项。要被格式化的表达式。
NumDigitsAfterDecimal
可选项。指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。
IncludeLeadingDigit
可选项。三态常数，指示是否显示小数值小数点前面的零。有关数值，请参阅“设置”部分。
UseParensForNegativeNumbers
可选项。三态常数，指示是否将负值置于括号中。有关数值，请参阅“设置”部分。
GroupDigits
可选项。三态常数，指示是否使用计算机区域设置中指定的数字分组符号将数字分组。有关数值，请参阅“设置”部分。
设置
IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 参数可以有以下值：

常数
值
描述



TristateTrue
-1
True


TristateFalse
0
False


TristateUseDefault
-2
使用计算机区域设置中的设置。



说明
当省略一个或多个可选项参数时，由计算机区域设置提供被省略参数的值。
注意 所有设置信息均取自区域设置的“数字”附签。
下面例子利用 FormatNumber 函数把数值格式化为带四位小数点的数:
 Function FormatNumberDemo 
  Dim MyAngle, MySecant, MyNumber
  MyAngle = 1.3                ' 用弧度定义角。
  MySecant = 1 / Cos(MyAngle)  ' 计算正割值。
  FormatNumberDemo = FormatNumber(MySecant,4) ' 把 MySecant 格式化为带四位小数点的数。
End Function
 

FormatPercent 函数
返回表达式，此表达式已被格式化为尾随有 % 符号的百分比（乘以 100 ）。
FormatPercent(expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])
FormatPercent 函数的语法有以下参数：
参数
Expression
必选项。要被格式化的表达式。
NumDigitsAfterDecimal
可选项。指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。
IncludeLeadingDigit
可选项。三态常数，指示是否显示小数值小数点前面的零。有关数值，请参阅“设置”部分。
UseParensForNegativeNumbers
可选项。三态常数，指示是否将负值置于括号中。有关数值，请参阅“设置”部分。 
GroupDigits
可选项。三态常数，指示是否使用计算机区域设置中指定的数字分组符号将数字分组。有关数值，请参阅“设置”部分。
设置
IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 参数可以有以下值：

常数
值
描述



TristateTrue
-1
True


TristateFalse
0
False


TristateUseDefault
-2
使用计算机区域设置中的设置。



说明
当省略一个或多个可选项参数时，由计算机区域设置提供被省略参数的值。
注意 所有设置信息均取自区域设置的“数字”附签。
下面例子利用 FormatPercent 函数把表达式格式化为百分数:
Dim MyPercent
MyPercent = FormatPercent(2/32) 'MyPercent 包含 6.25%。