ENTIER OU DECIMAL??Résolu

Question

bonsoir a tous.
j'aimerai savoir si une fonction permet de trouver si le resultat d'un calcul est un entier ou un decimal.
merci de votre reponse et passer une merveilleuse soire.
bye

cs_rene38 · Accepted Answer

Bonjour

If Int(nombre) = nombre Then 
' nombre est entier
Else
' nombre n'est pas entier
End If

cs_Jack · Answer

Salut bobo91
C'est simple : Il suffit de comparer le résultat avec le résultat converti en Entier :
    Dim a As Integer, b As Integer    a 10: b 3
    Debug.Print a / b
    If (a / b) = CLng(a / b) Then Debug.Print "Entier !"

Vala
Jack

cs_bobo91 · Answer

et oui que j'sui bete si la partie entiere de mon nombre = a mon nombre c'est que c'est forcement un entier.
holalalalalal.
merci beaucoup a vous deux c cool.

"meme les meilleur perde la tete un jour"
bonne soiree.

cs_iPol · Answer

Super!!!

cs_iPol · Answer

En faite, pas si super que ça...
je ne sais pas si cela vient de mon Pc mais il contredit les maths

avec ce code si petit, si simple:
Function Entier(nombre) As Boolean
If nombre = CInt(nombre) Then
    Entier = True
Else
    Entier = False
End If
End Function

Lorsque que nombre est egale à 7, 3 ou encore quelque autre chiffre il me dit que Entier = False

Même en mode Debug, je place ma souris sur "nombre" il m'écrit "nombre 3" quand je place ma souris sur "Cint(nombre)" il m'écrit "Ctype(nombre) 3" et il passe tout de même directement à Else.

J'ai même amélioré le code en écrivant:
Function Entier(nombre) As Boolean
If Cdbl(nombre) = CInt(nombre) Then
    Entier = True
Else
    Entier = False
End If
End Function

Il fait quand même des erreurs
mais ça dépend des fois, des fois il donne la bonne réponse!!!!

Quelqu'un à une solution??? Ou au moins une explication?

ENTIER OU DECIMAL??

5 réponses

Discussions similaires