VBS幫助文件裡有兩個函式, 分別叫FormatNumber和FormatPercent

FormatNumber 函式

請參閱

FormatCurrency 函式 | FormatDateTime 函式 | FormatPercent 函式

要求

版本2

返回表示式，此表示式已被格式化為數值。

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 FunctionFormatPercent 函式

請參閱

FormatCurrency 函式 | FormatDateTime 函式 | FormatNumber 函式

要求

版本2

返回表示式，此表示式已被格式化為尾隨有 % 符號的百分比（乘以 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%。