funcion format
Publicado por aldo (111 intervenciones) el 13/03/2008 17:00:35
Hola,
tengo el siguiente codigo...
*******************************************
Private Sub txtIva10_LostFocus()
On Error GoTo errHandler
txtTotal1erVto = Format(Val(txtImporte) + Val(txtIva10), "#########0.#0")
Exit Sub
errHandler:
MsgBox "Error: " & Err.Number & ". " & Err.Description
Exit Sub
Resume
End Sub
*********************************************
Resulta que el valor de txtImporte es 199,00 y el valor de txtIva es de 20,90, con lo cual la suma en el textbox txtTotal1erVto deberia ser 219,90 pero me da como resultado 219,00.
Como puedo hacer para que me aparezcan los decimales...?
gracias al que tenga interes de ayudarme...
saludos,
Aldo
tengo el siguiente codigo...
*******************************************
Private Sub txtIva10_LostFocus()
On Error GoTo errHandler
txtTotal1erVto = Format(Val(txtImporte) + Val(txtIva10), "#########0.#0")
Exit Sub
errHandler:
MsgBox "Error: " & Err.Number & ". " & Err.Description
Exit Sub
Resume
End Sub
*********************************************
Resulta que el valor de txtImporte es 199,00 y el valor de txtIva es de 20,90, con lo cual la suma en el textbox txtTotal1erVto deberia ser 219,90 pero me da como resultado 219,00.
Como puedo hacer para que me aparezcan los decimales...?
gracias al que tenga interes de ayudarme...
saludos,
Aldo
Valora esta pregunta


0