Страницы: 1
RSS
Сложить числа из TextBox
 
Добрый день. Нужно сложить  TextBox1 и TextBox2 в TextBox3. Например 2,32€ + 5,13€ = 7,45€
Заранее спасибо!
 
Цитата
Maklarenn написал: Нужно сложить
Код
Private Sub ListBox1_Click()
'---------------------------
Me.TextBox3 = CDbl(Replace(Me.TextBox1, " " & Chr(136), "")) + Val(Replace(Me.TextBox2, " " & Chr(136), ""))
'---------------------------
End Sub
Изменено: Sanja - 26.01.2019 18:00:30
Согласие есть продукт при полном непротивлении сторон
 
Sanja,Спасибо. Но вместо ( , ) получается (.) и без €. пример 2,32€ + 5,13€ = 7.45
 
Так и отформатируйте его как и раньше это делали
Код
Me.TextBox3 = Format(CDbl(Replace(Me.TextBox1, " " & Chr(136), "")) + Val(Replace(Me.TextBox2, " " & Chr(136), "")), "0.00") & " " & Chr(136)
Согласие есть продукт при полном непротивлении сторон
Страницы: 1
Наверх