Hola, entiendo que estás usando el mismo tipo de datos para ambos números (si no bastaría con consultar el tipo de datos).
Supongo que a lo que te refieres es a que te va a llegar una serie de números y lo que quieres saber es cuáles tienen una parte decimal igual a 0 y cuáles no, ¿verdad?
Por poner un ejemplo, imagina que tenemos esto:
4,00
5,30
12,65
7 (equivaldría a 7,00)
Entonces lo que querrías es quedarte con el 4,00 y el 7,00, ¿no? (que equivalen al 4 y el 7 enteros).
Bien, suponiendo esto y que se han hecho las comprobaciones pertinentes para asegurarte de que lo ha escrito el usuario es un número válido, lo que puedes hacer es lo siguiente:
Dim fNumero as Float
If (fNumero - Int(fNumero)) = 0.0 Then
'Número entero
Else
'Número con decimales
End If
Es decir, lo que hacemo es coger el número que nos da el usuario (todos en principio son del tipo
float) y le restamos su parte entera. Si nos da un CERO es porque la parte entera y el número completo son iguales, lo que indicaría que no tiene parte decimal. Si sale cualquier cosa distinta de cero es porque la parte decimal no era nula, es decir, tenía decimales.
Espero que te sirva la sugerencia, hay múltiples formas de hacerlo, ésta no es más que una de ellas.
Saludos
