Calcul de chiffres à virgule

Question

Je doit calculer des sommes à virgule, mais le probleme est le suivant, lorsque je fais la somme par le code suivant j'ai un nombre à virgule beaucoup trop long. 
par exemple 12,52 + 11, 14 = 23,66
mais moi je trouve 23,66012547898
comment faire pour avoir juste le compte à 2 virgules.
Dim Var1, Var2 As Single
Var1 = Text1.Text
Var2 = Text2.Text
Text2.Text = Var1 + Var2
Je voudrais également le code pour la multiplication de deux nombres à virgules car j'ai le même probléme.
Merci encore de l'aide que tu nous apporte pour non les petits en programmation. Nous avons avec un collégue un site internet sur le petiti programme que nous avons faits. Si tu le désir nous pouvons faire un lien sur ton site. Nous avons depuis 2 ans plus de 52000 visiteurs.
a très bientôt je l'espère.
Christian Romand

crazycode · Answer

Text2.Text = (int((Var1 + Var2)*100)/100

XMS · Answer

Je ne saisis pas votre problème.
En principe 12.52 + 11.14 devrait donner le résultat exact, c-a-d 23.66, à 
moins que les données ( à savoir 12.52 et 11.14) soient le résultat d'un
calcul précédent. Dans ce cas, vous devriez utiliser la fonction "Round"
avant de faire la somme.

X = 12.520212
Y = Round(12.520212,2) devrait donner 12.52

Nota :
Prière vérifier la syntaxe de la fonction Round.

Calcul de chiffres à virgule

2 réponses

Discussions similaires