Duda con decimales - VB-MUNDO

visual_v · #1 (**permalink**) 09-05-2008, 19:25:55

Por favor, ¿alguien podría decirme como puedo tratar números decimales en VB?
Para empezar, declaro la variable que almacenará el dato decimal como long.
Y luego, le aplico lo siguiente:

Private Sub TxtImporte_KeyPress(KeyAscii As Integer)

Dim c As Integer
If KeyAscii = 13 Then
KeyAscii = 0 ' Para que no "pite"
SendKeys "{tab}" ' Envía una pulsación TAB
ElseIf KeyAscii <> 8 Or KeyAscii = 46 Then ' El 8 es la tecla de borrar (backspace)
' Si después de añadirle la tecla actual no es un número...
'If Not IsNumeric("0" & Text1.Text & Chr(KeyAscii)) Then
If Not IsNumeric(Chr(KeyAscii)) Then
' ... se desecha esa tecla y se avisa de que no es correcta
If KeyAscii = 46 Then
i = InStr(1, TxtImporte.Text, ".", vbTextCompare)
If i <> 0 Then
Beep
KeyAscii = 0
End If
Else
Beep
KeyAscii = 0
End If
End If
End If

End Sub

El problema está en que cuando intento guardar el valor del txt en la variable de tipo long, no coinciden los tipos:
Si fuera doble haría lo siguiente:
importe = CDbl(Form4.TxtImporte.Text)

Pero si es un long, ¿cómo puedo convertirlo? es que no encuentro el método que lo convierta

Gracias de antemano.

acalanto · #2 (**permalink**) 09-05-2008, 20:41:15

La función que convierte a tipo Long es Clng() pero debes tener en cuenta que LONG, como su propio nombre indica, es un tipo de dato numérico ENTERO y por esta razón los decimales nunca te los almacenará. Debes utilizar algún dato tipo Single o Double dependiendo de los valores que pretendas almacenar. Consulta la ayuda de MSDN para estudiar los valores mínimos y máximos que pueden almacenar, así como la precisión decimal que soportan.

Espero que te resulte útil.

visual_v · #3 (**permalink**) 11-05-2008, 09:44:00

Es curioso por que aún convirtiendolo a double, sucede lo siguiente:

Si TxtImporte.Text contiene = 123.12
Cuando convierto su valor a double y lo guardo en la variable importe:
importe = CDbl(Form4.TxtImporte.Text)

Guarda 12312. Es decir la variable importe en vez de contenter 123.12 contiene 12312, ¿porque?

Gracias de nuevo !!!

acalanto · #4 (**permalink**) 11-05-2008, 09:53:24

Pues seguramente es debido a que tienes configurado en el sistema la 'coma' como separador decimal.

Comprueba cDbl(123,12) y ya verás como te lo transforma correctamente.

visual_v · #5 (**permalink**) 11-05-2008, 13:15:55

Es cierto, he probado CDbl(123,12) y lo almacena bien.
En cambio con el punto lo coge como un entero, es decir: 12312.
¿Cómo puedo hacer para que el sistema reconozca el punto '.' como separador decimal?
Gracias.

acalanto · #6 (**permalink**) 11-05-2008, 13:29:57

Prueba a utilizar esta función

Código:

 
Public Function DConv(v As Variant) As Variant
    On Local Error Resume Next
    If InStrRev(v, ",") <> 0 Then
        DConv = CDbl(v)
    ElseIf InStrRev(v, ".") <> 0 Then
        DConv = CDbl(Val(v))
    Else
        DConv = CDbl(Val(v))
    End If
End Function

visual_v · #7 (**permalink**) 12-05-2008, 19:36:39

Acalanto te mereces un monumento !!!
Muchas gracias, por fin salió !!!!
GRACIAS !!!!!!!!!!!!!!!!!!!!!