Номер денежного формата VB.NET

Ваш MsgBox показывает вам значение, но он не отформатировал его, как вы этого не просили.

Если вы пошли немного дальше и отформатировали результат как строку, вы получите желаемый формат, например:

Dim num1 As Double = 2000
Dim num2 As Double = 500
Dim sum As Double = num1 + num2

MsgBox(sum.ToString("0.00")) ' Adjust format string to suit

Во-первых, вы должны использовать Decimal вместо Double при работе с денежными значениями. Double имеет некоторые проблемы с округлением.

Во-вторых, вы можете использовать форматирование строки:

Dim num1 As Integer = 2000
Dim num2 As Integer = 500
Diml value As Decimal = CDec(num1 + num2)
Dim formattedValue As String = String.Format("{0:n}", value)

msgbox(formattedValue)

Строка стандартного числового формата

- отличный ресурс для общего форматирования чисел, верхний из которых - валюта (это учитывает различия в культуре)

"C" или "c" для валюты

• Поддерживаются: все числовые типы.
• Спецификатор точности: количество десятичных цифр.
• Спецификатор точности по умолчанию: определяется System.Globalization.NumberFormatInfo.

Дополнительные сведения: Описатель формата валюты («C»).

• 123.456 ("C", en-US) -> $123.46
• 123.456 ("C", fr-FR) -> 123,46 €
• 123.456 ("C", ja-JP) -> ¥123
• -123.456 ("C3", en-US) -> ($123.456)
• -123.456 ("C3", fr-FR) -> -123,456 €
• -123.456 ("C3", ja-JP) -> -¥123.456

Если вы хотите, чтобы формат был валютным, подойдет любой из них:

    Dim num1 As Integer = 2000
    Dim num2 As Integer = 500
    MsgBox(String.Format("{0:C2}", num1 + num2))

Or

    Dim num1 As Integer = 2000
    Dim num2 As Integer = 500
    Dim sum As Integer = num1 + num2

    MsgBox(sum.ToString("C2"))

удвоить формат валюты

value = 1500,20 TL

ctype(value, double)

return 1500,20

удвоить форматирование валюты

образец

value = 1500,1995

formatcurrency(value,2)

return = 1500,20 TL moneysembol (TL , $ ,vs..)

Взгляните на документацию String.Format, вы найдете там то, что вам нужно.

Обычно вы не используете Integer в качестве типа данных для денежных значений. Вместо этого используйте Double.

Я уверен, что есть много способов отформатировать выходную строку как денежное значение.

Один из известных мне методов уже был объяснен Роландом Шоу. Так что я перейду к другому. Это встроенная функция FormatCurrency. Он выведет строку в виде значения валюты плюс с символом валюты, определенным в вашей системе.

Dim num1 As Double = 2000
Dim num2 As Double = 500
Dim ans As Double = num1 + num2

MessageBox.Show(FormatCurrency(ans))

Подробнее о FormatCurrency см. здесь .