|
|
|
| Title | Use the FormatCurrency function in Visual Basic 6 |
|---|
| Description | This example shows how to use the FormatCurrency function in Visual Basic 6. |
|---|
| Keywords | FormatCurrency, format currency |
|---|
| Categories | Strings |
|---|
|
|
|
The FormatCurrency function returns a formatted string representation for a number representing currency. It is very similar to FormatNumber except it adds the system's currency symbol to the result. The syntax is:
FormatCurrency(expression _
[, digits_after_decimal] _
[, include_leading_zero] _
[, use_parens_if_negative] _
[, groups_digits] )
Where:
- expression
- The numeric expression to format
- digits_after_decimal
- The number of digits to display after the decimal point
- include_leading_zero
- If the number is less than 1 and greater than -1, determines whether the number should have a leading 0 before the decimal point.
- use_parens_if_negative
- Determines whether negative numbers are surrounded with parentheses instead of using a minus sign.
- groups_digits
- Determines whether digits to the left of the decimal point are grouped with thousands separators (commas in the United States).
Examples (in the United States):
| Expression | Result |
|---|
| FormatCurrency(1.23456, 2) | $1.23 |
| FormatCurrency(0.123456, 2, vbFalse) | $.12 |
| FormatCurrency(0.123456, 2, vbTrue) | $0.12 |
| FormatCurrency(-12345.12, , vbFalse) | $-12,345.12 |
| FormatCurrency(-12345.12, , vbTrue) | ($12,345.12) |
| FormatCurrency(-12345.12, , vbTrue, vbFalse) | ($12345.12) |
This example uses the following code to display these examples in a TextBox.
|
|
Private Sub Form_Load()
Dim txt As String
Dim x As Single
txt = ""
x = 1.23456
txt = txt & "FormatCurrency(" & Format$(x) & ", 2) = " _
& FormatCurrency(x, 2) & vbCrLf
x = 0.123456
txt = txt & "FormatCurrency(" & Format$(x) & ", 2, " & _
"vbFalse) = " & FormatCurrency(x, 2, vbFalse) & _
vbCrLf
txt = txt & "FormatCurrency(" & Format$(x) & ", 2, " & _
"vbTrue) = " & FormatCurrency(x, 2, vbTrue) & vbCrLf
x = -12345.12345
txt = txt & "FormatCurrency(" & Format$(x) & ", , " & _
"vbFalse) = " & FormatCurrency(x, 2, , vbFalse) & _
vbCrLf
txt = txt & "FormatCurrency(" & Format$(x) & ", , " & _
"vbTrue) = " & FormatCurrency(x, 2, , vbTrue) & _
vbCrLf
txt = txt & "FormatCurrency(" & Format$(x) & ", , " & _
"vbTrue, vbFalse) = " & FormatCurrency(x, 2, , _
vbTrue, vbFalse) & vbCrLf
txtResults.Text = txt
End Sub
|
| |
|
| |
|
|
