Como puedo comprobar si un numero es entero o no. Por ejemplo:
Numero = 758 / 526
Como compruebo ahora si el valor de la variable numero es un entero o no??
mira en BASIC existe un operador llamado MOD
ese operador lo que hace es dividir un numero entre X numero pero devuelve el resto un ejemplo seria asi
msgbox "que numero quieres ver?"
numero = text1.text
caca = text1.text mod 2
msgbox caca
y lo que hace es devolverte el resultado de la divicion por 2
y para saber si es impar o par haces esto
Private Sub Form_Load()
a = InputBox("numero:")
If a Mod 2 = 0 Then
MsgBox "el numero es par"
Else
MsgBox "el numero es impar"
End If
End Sub
Explicacion : lo que hace aqui es almacenar en a lo que escribes en un inputbox y despues
a mod 2 es Numero almacenado en a dividelo en 2 y devuelveme el resto en este caso es 0 , si sabes que en matematicas la propiedad de un numero entero es todo numero dividido en 2 que el resto sea 0 es entero a pues aqui se hace eso y despues condiciona si mod osea el resto de la divicion es 0 entonces el numero es entero si no es impar
saludos y espero que te sirva
Numero = 758 / 526
If Numero = Int(Numero) then
msgbox "Numero entero"
Else
MsgBox "No entero"
End If
If Not IsNumeric(Text1.text) Then
MsgBox "No es numerico!"
Else
MsgBox "Bien"
End if
Lo que necesita saber es si el numero es entero o da con coma, no si se trata de numeros o caracteres.. Por lo menos es lo que entendi yo ;D
Saludos.-
si es de numeros enteros ,pero no se si se refiere a como tu lo hiciste o como yo lo explique
Me referia a lo que ha explicado NYlOn. Muchas gracias por la ayuda.