03/03/2008, 10:25
|
| | | Fecha de Ingreso: febrero-2008
Mensajes: 303
Antigüedad: 17 años, 2 meses Puntos: 2 | |
| Obtener el valor entero de un numero
Por ejemplo en una caja de texto tengo un valor numerico 10.00 cuando no tiene el foco y al colocarle el foco debe mostrar el valor entero es decir 10
El problema ocurre ocurre cuando el valor por ejemplo es 10.25 y al ponerle el foco me muestra 10 pero se pierde los decimales al quitarle el foco aqui dejo mi codigo
Private Sub Text3_LostFocus()
Text3 = Format(Text3, "##00.00")
End Sub
Private Sub Text3_GotFocus()
Text3 = Int(Text3)
End Sub |