FormatNumber 函数

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

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

[h3]说明[/h3]当省略一个或多个可选项参数时，由计算机区域设置提供被省略参数的值。 [b]注意[/b] 所有设置信息均取自区域设置的“数字”附签。 下面例子利用 [b]FormatNumber[/b] 函数把数值格式化为带四位小数点的数:

[code] Function FormatNumberDemo   Dim MyAngle, MySecant, MyNumber  MyAngle = 1.3                ' [/code]用弧度定义角。[code]  MySecant = 1 / Cos(MyAngle)  ' [/code]计算正割值。[code]  FormatNumberDemo = [b]FormatNumber([/b]MySecant[b],[/b]4[b])[/b] ' [/code]把[code] MySecant [/code]格式化为带四位小数点的数。[code]End Function[/code]