Как добавить две валюты вместе?

Question

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

Это то, что я хочу, чтобы это произошло:

If TextBox1.Text + TextBox2.Text =< 10,000 Then 
Sum = 10,000 
Else 
Sum = TextBox1.Text + TextBox2.Text 

Однако, (я думаю), потому что я уверен, преобразование числа в валюту, прежде чем добавить их вместе, он всегда возвращает 10000 независимо от того, что.

Я знаю, что, возможно, есть что-то довольно очевидное, что мне не хватает. Если вам нужно какое-либо разъяснение, просто спросите! Я ценю вашу помощь.

Answer 1

+ Объединяет строки, так TextBox1.Text + TextBox2.Text является строкой, и сравнивая его с целочисленным 10000 не делать то, что вы хотите.

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

MaskedTextBox может дать вам некоторые из этих результатов, но я долгое время использовал его.

Answer 2

Перед добавлением их необходимо преобразовать значения String в Double (или любой другой числовой тип).

Dim tbSum as Double = CDbl(TextBox1.Text) + CDbl(Textbox2.Text) 
If tbSum =< 10000 Then Sum = 10000 Else Sum = tbSum