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 関数を使って式を通貨形式に設定し、MyCurrency に割り当てます。
Dim MyCurrency
MyCurrency = FormatCurrency(1000)   ' MyCurrency には、$1000.00 が含まれます。

メモ これらの設定値の情報は、[地域のプロパティ] の [通貨] タブに基づいています。ただし、ゼロの表示については、[数値] タブに基づいています。

【必要条件】
バージョン 2