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

[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