Discussion :

[freefly3]

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

Voici les conditions du code:

Si :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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...

[freefly3]

Merci Pierre pour ta réponse.

voici le code exacte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

Bonjour,

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

Maintenant : essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[pgz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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

Exemple, donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

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

[freefly3]

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