Cita:
|
Empezado por Insomnia17 Hola
Tengo untextbox en el que introduzco cifras con decimales. El problema es que si introduzco 0,87 y paso al siguiente textbox me combierte la cifra en 87
Si introduzco 0.87 y paso al siguiente textbox me pone 0,87
Lo que no entiendo es, si me muestra el simbolo decimal con una ',' por que no puedo introducir el valor con la ',' y tengo que hacerlo con '.'
Tengo la configuración regional en español (simbolo decimal ',').
Que puedo hacer para que me acepte la ',' para introducir los datos?
--Gracias-- |
Este código sirve para convertir en un valor DOUBLE al texto que escribas en la caja, y luego al perder el foco esta, te muestra el valor con un formato de punto decimal y dos dígitos obligatorios detrás de el. Dicho código es indiferente al tipo de configuración de la máquina, tu deberías escribir " , " para números decimales y " . " para los miles y millones.
Private Sub txtNumber_LostFocus()
On Error Resume Next
txtNumber.Text = Format(CDbl(txtNumber.Text), _
"#,###,###,##0.00####")
End Sub
Private Sub txtNumber_GotFocus()
' On Error is necessary to account for empty fields.
On Error Resume Next
txtNumber.Text = CDbl(txtNumber.Text)
End Sub
Lo único que debes hacer para que funcione correctamente es pegar el código en tu formulario y tener un textbox con (Nombre) idéntico a "txtNumber" o cambiar en el código el nombre del texbox.
Espero que sea lo que necesites.