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 ...
