Pasar un campo de texto a numérico
¿Cómo podría pasar mediante visual basic, un campo de texto a uno numérico?
Yo tengo en un campo el valor:<0,25 y yo solo quiero pillar el 0,25 para poder sumarlo.
Muchísimas gracias.
Yo tengo en un campo el valor:<0,25 y yo solo quiero pillar el 0,25 para poder sumarlo.
Muchísimas gracias.
1 Respuesta
Respuesta de ohmygood
1
¿Tienes siempre el símbolo < o mayor delante?
Podrías hacerlo de una manera similar a esta, suponiendo que el valor <0,25 lo tienes en una caja de texto llamada texto2, la variable resultado contendra el valor de texto2 convertido a formato doble (cdbl):
Dim resultado As Variant
If Mid(Texto2, 1, 1) = "<" Or Mid(Texto2, 1, 1) = ">" Then
resultado = CDbl(Mid(Texto2, 2, Len(Texto2)))
Else
resultado = CDbl(Texto2)
End If
Podrías hacerlo de una manera similar a esta, suponiendo que el valor <0,25 lo tienes en una caja de texto llamada texto2, la variable resultado contendra el valor de texto2 convertido a formato doble (cdbl):
Dim resultado As Variant
If Mid(Texto2, 1, 1) = "<" Or Mid(Texto2, 1, 1) = ">" Then
resultado = CDbl(Mid(Texto2, 2, Len(Texto2)))
Else
resultado = CDbl(Texto2)
End If
