Como identificar los numeros que esten antes y despues del punto decimal

[gerardot08]

Hola a todos

Quisiera saber como podria hacer para que en dos variables diferentes, por ejemplo:

Tengo 2 variables 'a', 'b' y el numero 13.25(el numero va a cambiar). En donde 'a' sera igual a 13 y 'b' igual a .25

Como puedo hacer para que las variables tomen estos valores una con la parte entera y la otra con la parte decimal.

Espero su ayuda, Gracias

[erbuson]

Hola, puedes utilizar esta rutina o desarrollar una similar a tu gusto, evidentemente puedes hacer que devuelva valores Integer o Long, como mejor te convenga que probablemente es mas adecuado.

Código vb:

Sub Separar(Origen As String, Entero As String, Decimales As String)
  Dim Punto As Integer
  Punto = InStr(Origen, ".")
  If Punto > 0 Then
    Entero = Left$(Origen, Punto - 1)
    Decimales = Mid$(Origen, Punto + 1)
  Else
    Entero = Origen
    Decimales = ""
  End If
End Sub
 

Por otra parte si tienes el Origen en una variable numérica, debes convertirla antes, controlando si tendra de separador el Punto o la Coma

Saludos

[gerardot08]

Iniciado por erbuson

Hola, puedes utilizar esta rutina o desarrollar una similar a tu gusto, evidentemente puedes hacer que devuelva valores Integer o Long, como mejor te convenga que probablemente es mas adecuado.

Código vb:

Sub Separar(Origen As String, Entero As String, Decimales As String)
  Dim Punto As Integer
  Punto = InStr(Origen, ".")
  If Punto > 0 Then
    Entero = Left$(Origen, Punto - 1)
    Decimales = Mid$(Origen, Punto + 1)
  Else
    Entero = Origen
    Decimales = ""
  End If
End Sub
 

Por otra parte si tienes el Origen en una variable numérica, debes convertirla antes, controlando si tendra de separador el Punto o la Coma

Saludos

Muchas gracias me funciono de maravilla