Visual Basic - Coger como numérico una caja de texto

Life is soft - evento anual de software empresarial
 
Vista:

Coger como numérico una caja de texto

Publicado por nacho (8 intervenciones) el 23/01/2004 09:56:47
Tengo una caja de texto en la que el usuario debe introducir un número pero con decimales, como por ejemplo: 5,95 ; 8,01 .....

Còmo puedo coger este valor correctamente para que luego al dividirlo por 12, la división me de un valor correcto????

Sería (ValorCajaTexto / 12 ). Si ValorCajaTexto es de tipo texto la división no es correcta.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Coger como numérico una caja de texto

Publicado por Cecilia Colalongo (3116 intervenciones) el 23/01/2004 11:28:03
Tendrías que fijarte con la función Val y reemplazar el separador decimal por un punto. Tengo un control que lo tiene resuelto, si quieres te lo envío.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Coger como numérico una caja de texto

Publicado por Nacho (8 intervenciones) el 23/01/2004 11:32:10
Si por favor. Con eso resolvería muchos errores que me está dando de cálculos.

Muchas gracias. Mi dirección es [email protected]
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Coger como numérico una caja de texto

Publicado por Fabian (501 intervenciones) el 23/01/2004 18:51:10
Con Val(Text1.Text) obtienes el valor numerico de la caja y si no quieres que se ingresen letras pues, prueba con esto en tu modulo:
Public Function NumerosDecimales(ByVal KeyAscii As Integer) As Integer
If InStr("0123456789.-", Chr(KeyAscii)) = 0 Then
NumerosDecimales = 0
Else
NumerosDecimales = KeyAscii
End If
If KeyAscii = 8 Then NumerosDecimales = KeyAscii ' borrado atras
If KeyAscii = 13 Then NumerosDecimales = KeyAscii ' return
End Function
y solo en el evento keypress de la caja lo llamas asi:
NumerosDecimales(KeyAscii)
Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar