通过

FormatCurrency Function

  • 项目

Returns an expression formatted as a currency value using the currency symbol defined in the system control panel.

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

Arguments

  • Expression
    Required. Expression to be formatted.

  • NumDigitsAfterDecimal
    Optional. Numeric value indicating how many places to the right of the decimal are displayed. Default value is -1, which indicates that the computer's regional settings are used.

  • IncludeLeadingDigit
    Optional. Tristate constant that indicates whether or not a leading zero is displayed for fractional values. See Settings section for values.

  • UseParensForNegativeNumbers
    Optional. Tristate constant that indicates whether or not to place negative values within parentheses. See Settings section for values.

  • GroupDigits
    Optional. Tristate constant that indicates whether or not numbers are grouped using the group delimiter specified in the computer's regional settings. See Settings section for values.

Settings

The IncludeLeadingDigit, UseParensForNegativeNumbers, and GroupDigits arguments have the following settings:

Constant

Value

Description

vbUseDefault

-2

Use default from computer's regional settings.

vbTrue

-1

True

vbFalse

0

False

Remarks

When one or more optional arguments are omitted, values for omitted arguments are provided by the computer's regional settings. The position of the currency symbol relative to the currency value is determined by the system's regional settings.

Note

All settings information comes from the Regional Settings Currency tab, except leading zero, which comes from the Number tab.

Example

The following example illustrates the use of the FormatCurrency function.

Dim number
number = -12345.6789

MsgBox (FormatCurrency (number))

' The UseParensForNegativeNumbers parameter is set to false.
MsgBox (FormatCurrency (number, -1, vbUseDefault, vbFalse))

' The GroupDigits parameter is set to false.
MsgBox (FormatCurrency (number, , , , vbFalse))

Requirements

Version 2

See Also

Reference

FormatDateTime Function

FormatNumber Function

FormatPercent Function

Change History

Date

History

Reason

April 2009

Modified tristate constants table.

Content bug fix.

April 2009

Modified example.

Information enhancement.