Cita:
Iniciado por jc_moty OK. La logica es esta: los valores que tenes en formato de moneda los tenes que convertir a formato numerico:
Código:
valor1 = Format(txtValor1.Text, "##0.00")
valor2 = Format(txtValor2.Text, "##0.00")
Luego teniendolos en formato numerico los sumas:
Código:
sumatoria = Val(valor1) + Val(valor2)
Despues, el resultado de la suma lo convertis a formato de moneda y lo colocas en el text en el que mostras el total:
Código:
txtTotal.Text = Format(sumatoria, "$#,##0.00")
Espero te sirva
Saludos
PD: En cuanto al tipo de datos de las variables podes declararlas como
String:
Código:
Dim valor1, valor2, sumatoria As String
Ok, pero quiero separarlo en unidades, con punto separador y que me los sume
por ej. 1000 = 1.000, 100000 = 100.000
valor1 = Format(
txtValor1.Text, "#,##0.00")
valor2 = Format(
txtValor2.Text, "#,##0.00")
con eso logro que los separe pero, no entrega un resultado con punto separador
sumatoria = Val(valor1) + Val(valor2)
txtTotal.Text = Format(sumatoria, "#,##0.00")