une énigme de VB6?

Version imprimable

une énigme de VB6?

Bonjour,

Qui peut m'expliquer cette bizarrerie de VB?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Form_Load()
 
Dim var1 As Single
Dim var2 As Single
Dim var3 As Single
 
var2 = 0.21
var3 = 21
var1 = var3 / 100
 
Debug.Print var1, var2
If var1 = var2 Then
  Debug.Print "je passe dans la condition"
               Else
  Debug.Print "je ne passe pas dans la condition"
End If
Stop
End Sub

Bien sûr la valeur de la variable 1 est identique à la variable 2,
et je passe par le if, mais si j'ajoute une décimale

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Form_Load()
 
Dim var1 As Single
Dim var2 As Single
Dim var3 As Single
 
var2 = 0.211
var3 = 21.1
var1 = var3 / 100
 
Debug.Print var1, var2
If var1 = var2 Then
  Debug.Print "je passe dans la condition"
               Else
  Debug.Print "je ne passe pas dans la condition"
End If
Stop
End Sub

Les valeurs des deux variables sont identiques,
mais je ne passe pas par le if, idem si les variables sont de type variant ou double.

Par contre si je les définis comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Form_Load()
 
Dim var1 As Currency
Dim var2 As Currency
Dim var3 As Currency
var2 = 0.211
var3 = 21.1
var1 = var3 / 100
 
Debug.Print var1, var2
If var1 = var2 Then
  Debug.Print "je passe dans la condition"
               Else
  Debug.Print "je ne passe pas dans la condition"
End If
Stop
End Sub

Là , je passe bien par le if sans problème.

25/11/2012, 10h54
sevyc64

Parce que les nombre à virgule flottante (Single et Double pour VB) de part leur constitution même ne sont pas des nombres à représentation exacte. Tous les nombres réels imaginable ne sont pas forcément représentable en flottant.
Un nombre non représentable est représenté par le nombre représentable le plus proche.

Ainsi il possible que 0.211 ne soit pas représentable, il serait alors représenté par 0.2109999999999999999999999...... ou par 2.11111111111111111111111111...
25/11/2012, 15h33
iclic
Merci pour la réponse... donc se méfier des comparaisons de nombres ...
ou alors faire et là ça fonctionne
Code:

1 2 3 If Str(var1) = Str(var2) Then ...
25/11/2012, 23h14
DarkVader
Bonsoir,
la comparaison de String est dangereuse ("5.1"<>"5.10")

En dehors des valeurs décimales de type Currency
il est aussi possible d'utiliser les Decimaux
qui sont les plus grands nombres utilisables sous VB
Code:

1 2 3 4 5 6 7 8 9 Dim var1 As Variant Dim var2 As Variant Dim var3 As Variant var2 = CDec(1 / 3) var3 = CDec(100 / 3) var1 = CDec(var3 / 100) Debug.Assert var1 = var2
retourne Vrai

Rappel de la MSDN :

Citation:

Si une valeur de type Currency est comparée à une valeur de type Single ou Double, cette dernière est convertie en valeur de type Currency. De même, lorsqu'une valeur de type Decimal est comparée à une valeur de type Single ou Double, cette dernière est convertie en valeur de type Decimal.

Avec les valeurs de type Currency, les parties décimales inférieures à 0,0001 peuvent être perdues ; avec celles de type Decimal, les parties décimales inférieures à 1E-28 peuvent être perdues ou un dépassement de capacité peut se produire. Deux valeurs comparées peuvent alors paraître équivalentes sans toutefois l'être réellement.

De plus l'option de compilation avancée :
Autoriser les opérations en virgule flottante non arrondies
est aussi à prendre en compte.
26/11/2012, 09h18
iclic

Bonjour,

Citation:

De DarkVader

la comparaison de String est dangereuse ("5.1"<>"5.10")

Oui mais... VB enlève automatiquement les zéros inutiles,

donc 5.10 devient 5.1

De même 00005.1000 devient 5.1