Problème avec fct Int()

Bonjour, j'ai un soucis avec la fct Int() qui me revoie une valeure erronée.

Voici les conditions du code:

Si :

Code:

---

1 2 3 4 5 6 7 8 9

Dim dbl1, dbl2, dbl3, dbl4 as Double Dim tmp1,tmp2 as Double   dbl2 = 15.625 dbl3 = 0.025 dbl4 = 125   dbl1 = (dbl2 / dbl3) - dbl4 'dbl1 = 500 tmp1 = int(dbl1) 'tmp1 = 499 ???????

---

Alors que si je décompose en :

Code:

---

1 2 3

tmp2 = (dbl2 / dbl3) dbl1 = tmp2 - dbl4 tmp1 = int(dbl1) 'tmp1 = 500 ! OK

---

En clair je ne travaille qu'avec des Double, et un Int(500) = 499...

Si quelqu'un peut m'éclairer c'est top !
Merci d'avance

Bonjour et bienvenue sur nos forums.

Avec le premier code que tu donnes, je n'ai pas de problème et j'obtiens bien 500...

Merci Pierre pour ta réponse.

voici le code exacte :

Code:

---

1 2 3 4 5 6 7 8

Dim data1 As Double   data1 = ((6.25 * 2.5) / 0.025) - 125   If data1 = Int(data1) Then IsInteger = True Else: IsInteger = False End If

---

Int(data1) = 499 alors que data1=500

Il doit y avoir un pb d'arrondi de VB mais je ne sais pas du tout comment le résoudre.
JM

Bonjour,

Réclamations à adresser à M. Bill...:D

Maintenant : essaye :

Code:

---

1 2 3

Dim data1 As Double data1 = ((6.25 * 2.5) / 0.025) - 125# MsgBox data1 & " " & data1 \ 1

---

attention : le \ (et pas le /) a ici toute son importance

Bonsoir,

Juste une précision en ce qui concerne la déclaration des variables :

Code:

---

1 2	Dim dbl1, dbl2, dbl3, dbl4 as Double Dim tmp1,tmp2 as Double

---

Ici seules les variables dbl4 et tmp2 sont déclarées avec "Double" les autres sont de type "Variant".

Pour ne pas taper "As Double" pour chacune vous pouvez utiliser le caractère "#", exemple :

Dim dbl1#, dbl2#, dbl3# etc.

Bonjour.

Tu es en plein sur un pb de précision de calcul. En fait data1, après calcul, vaut un chouia moins que 500. Un nano-chouia, même. Si bien que si tu affiches data1, c'est 500.

Maintenant essaie ceci

Code:

---

1 2 3 4 5 6 7 8

Sub Kesaco() Dim data1 As Double, data2 As Double   data1 = ((6.25 * 2.5) / 0.025) - 125 data2 = 500 - data1   MsgBox "Data1 = " & data1 & "; data2 = " & data2 & "; Fix(data1) = " & Fix(data1) & "; Round(Data1,0) = " & Round(data1, 0) End Sub

---

Comme Fix supprime bêtement la partie fractionnaire, tu te retrouves avec 499.
Moralité : Teste plutôt la valeur data2 pour savoir si data1 est suffisamment proche d'un entier.


PGZ

Il me semblait avoir donné la solution (elle semble avoir "échappé") ...

Exemple, donc :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Command1_Click() Dim nb As Double nb = 2.999999999 MsgBox est_entier(nb) nb = 15 MsgBox est_entier(nb) End Sub   Private Function est_entier(nb As Double) As Boolean If nb = nb \ 1 Then est_entier = True End Function

---

Hello, ucfoutu.

Ta solution n'a pas vraiment échappé et elle est très intéressante. Mais avec les données de départ, ta fonction donne Faux. Ce qui est juste puisque data1 n'est pas entier. Mais presque.
Et notre ami freefly3 espère dans ce cas obtenir VRAI.

Enfin. Tout cela si je ne me trompe pas, bien sûr:?

PGZ

Ouip, ... tu as raison... (nom d'une pipe ! et nom de Bill ...)

Mais voilà la parade :

Code:

---

1 2 3

Private Function est_entier(nb As Double) As Boolean If Str(nb) = Str(nb \ 1) Then est_entier = True End Function

---

Les mystères de VB ....:D

Ca marche nickel ! :yaisse2:
Merci a tous pour votre aide, merci ucfoutu ! :king: