|
|
|
| Title | Use the FormatCurrency function in Visual Basic .NET |
|---|
| Description | This example shows how to use the FormatCurrency function in Visual Basic .NET. |
|---|
| Keywords | FormatCurrency, format currency, VB.NET |
|---|
| Categories | Strings, VB.NET |
|---|
|
|
|
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, TriState.False) | $.12 |
| FormatCurrency(0.123456, 2, TriState.True) | $0.12 |
| FormatCurrency(-12345.12, , TriState.False) | $-12,345.12 |
| FormatCurrency(-12345.12, , TriState.True) | ($12,345.12) |
| FormatCurrency(-12345.12, , TriState.True, TriState.False) | ($12345.12) |
This example uses the following code to display these examples in a TextBox.
|
|
Private Sub Form1_Load(ByVal sender As System.Object, ByVal _
e As System.EventArgs) Handles MyBase.Load
Dim txt As String
Dim x As Single
x = 1.23456
txt &= "FormatCurrency(" & x.ToString() & ", 3) = " & _
FormatCurrency(x, 2) & vbCrLf
x = 0.123456
txt &= "FormatCurrency(" & x.ToString() & ", 4, " & _
"TriState.false) = " & FormatCurrency(x, 2, _
TriState.False) & vbCrLf
txt &= "FormatCurrency(" & x.ToString() & ", 4, " & _
"TriState.True) = " & FormatCurrency(x, 2, _
TriState.True) & vbCrLf
x = -12345.12345
txt &= "FormatCurrency(" & x.ToString() & ", , " & _
"TriState.False) = " & FormatCurrency(x, 2, , _
TriState.False) & vbCrLf
txt &= "FormatCurrency(" & x.ToString() & ", , " & _
"TriState.True) = " & FormatCurrency(x, 2, , _
TriState.True) & vbCrLf
txt &= "FormatCurrency(" & x.ToString() & ", , " & _
"TriState.True, TriState.False) = " & _
FormatCurrency(x, 2, , TriState.True, _
TriState.False) & vbCrLf
txtResult.Text = txt
txtResult.Select(0, 0)
End Sub
|
| |
|
| |
|
|
