03/03/2008, 10:40
|
| | | Fecha de Ingreso: marzo-2008
Mensajes: 3
Antigüedad: 16 años, 2 meses Puntos: 0 | |
| Re: Obtener el valor entero de un numero
Text3 = Int(Text3) elimina los decimales.
Debes mantener el valor completo en algún otro lugar, por ejemplo en una variable global. Ej.
Dim VariableGlobal as Double
Private Sub Text3_LostFocus()
Text3 = Format(VariableGlobal, "##00.00")
End Sub
Private Sub Text3_GotFocus()
VariableGlobal=Text3
Text3 = Int(Text3)
End Sub |