Ayuda para sumar valores en moneda ...

black_devil
01 de Julio del 2006
hola saliendo de un problema y pasando a otro, lo primero necesitaba que en el evento keypress de los textbox se convirtieran los valores numéricos a moneda 1000 ---> $1.000,00 separando con punto los valores moneda, bueno ese problema lo solucine pero ahora necesito sumar varias cajas de texto y me de el total en moneda tb aca va el código, necesito una ayuda de conversión...

Dim valor1, valor2 as String <--- duda?, lo dejo como integer o double?

Private Sub Form_Load()
valor1 = 0
valor2 = 0
......
End Sub

Private Sub txtviatico_Change()
valor1 = Val(txtviatico.Text)
\'como valido que sea numerico o moneda?
\'lo mismo para el valor2
End Sub

Private Sub txtviatico_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0 \' Para que no "pite"
SendKeys "{tab}"
StrDeFormato = Format(txtviatico, "$#,##0.00")
txtviatico.Text = StrDeFormato
End If
\'apretando enter automaticamente el valor numérico lo transforma a moneda
\'lo mismo para el valor2
End Sub

Private Sub cmdactualizar_Click()
txttotal.Text = Val(valor1 + valor2) <--- antiguamente sin colocar el formato moneda sumaba, lógico
End Sub

en la caja de texto toma los valores $1.000,00$1.000,00, los toma como un todo...

Bueno necesito que sume los valor1 + valor2 y mas en la caja de texto y ademas lo arroje como valor moneda, a esta hora mi cerebro quiere dormir, son las 02:00 am de CHILE, saludos amigos ...