5,32 - 5,26 = 6,00000000000005E-02

Bonjour,
Je voudrais savoir pourquoi quand je fais 5,32 - 5,26 j'obtient 6,00000000000005E-02 et pas 0,06 ?
Si vous savez aussi comment corriger ce problème.

Merci,

quand tu le fait comment dans ton programme?
a la limite laisse nous voir le bout de code...
Bob...

"La chance accorde ses faveur aux esprits avertis..."

Salut,
mes variables, je les déclares en currency et ca marche pour ce genre de résultat.
dim S1 as Currency

je n'exclu pas que pour d'autres types de résultat, il y ait un "plantage".

bonne prog
liquide

6,00000000000005E-02 = 0,0600000000005

Si tu obtient pas 0,06 exactement c'est parce que 5,32 vaut pas exactement 5,32 et 5,26 vaut pas exactement 5,26... à cause de la façon dont tout ça est stocké en mémoire mais on s'en fout.

Pour avoir 0,06 essaye avec la fonction FormatNumber() (va voir dans la MSDN)

J'ai essayé avec Currency mais cà déconne toujours.
Quand à l'idée de dav78, elle n'est pas assez précise.

Voici une tout petite partie de mon prog (il comprend une form, trois textbox, un bouton):

Private Sub Command1_Click()
text3.text = text1.text - text2.text
End Sub

Alors essaye ça:

Private Sub Command1_Click() text3.text = FormatNumber(text1.text - text2.text , 2) End Sub

Le second parametre de FormatNumber permet de choisir le nombre de décimale.

Alors essaye ça:

Private Sub Command1_Click() text3.text = FormatNumber(text1.text - text2.text , 2) End Sub

Le second parametre de FormatNumber permet de choisir le nombre de décimale.

Oups désolé j'ai dérapé deux fois sur le bouton!

Rectification :
J'ai conpris ce que dav78 voulait me dire et cà marche, MERCI

Merci aussi aux autres personnes, même si cà n'a pas marché.

@+

Ou tu peux aussi jouer sur les variables en elle meme en customisant leur format:

Private Sub Command1_Click()
Dim Var1 As Variant
Dim Var2 As Variant
Dim Var3 As Variant

Var1 = text1.Text
Var1 = Format(Var1, "###0.00")

Var2 = text2.Text
Var2 = Format(Var2, "###0.00")

Var3 = Var1 - Var2
Var3 = Format(Var3, "###0.00")

text3.Text = Var3

End Sub