Calcul a virgule

WareG - 4 déc. 2000 à 18:29
 int19h - 4 déc. 2000 à 21:12
J'ai bien reç votre code pour le calcul de chiffre à virgule
Dim Var1, Var2 As Single
Var1 = Text1.Text
Var2 = Text2.Text
Text2.Text = (Int((Var1 + Var2) * 100) / 100)
Le probléme c'est que si je fait une opération par exemple
12,54 + 12,54 je trouve 25,07 au lieu de
25,08 d'ou vient l'erreur.
merci pour votre réponse

1 réponse

Si tu ne veut que 2 chiffres :
Text2.Text = Format(Var1 + Var2, "##.##")

Si non, supprimer la ligne : Dim Var1, Var2 As Single

A+

int19h
0
Rejoignez-nous