Empêcher l'arrondissement automatique

Résolu
cs_Dark Revan Messages postés 23 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 15 avril 2006 - 3 avril 2005 à 20:52
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 3 avril 2005 à 21:14
Je n'ai jamais eu ce problème mais présentement, je l'ai. J'ai une équation mais celle-ci, s'arrondit automatiquement...

Voici l'équation : TotalControl2 = ((((((ballonfin + marsfinfinale) + fillerfin) + densbrutfinale) + densmaxfinale) + extractfin) + granulefin)

ballonfin= -0,001
marsfinfinale = 447
fillerfin = 3270,8
densbrutfinale = 6260
densmaxfinale = 11230,2
extractfin = 6146,8
granulefin = 6281,3

TotalControl2 doit donner : 33636,099 (Calculer avec une calculatrice pour voir)
Malheureusement, VB me retourne 33626,1 alors que la variable est bien une Single et que je ne fais aucun arrondissement...

Les parenthèses ne sont pas nécessaires, c'était un test que je faisais.

Savez-vous pourquoi ça me donne ce résultat?

1 réponse

Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
3 avril 2005 à 21:14
"33636,099" plus de 7 chiffres significatifs pour un Single c'est trop.
met tout en Double et pas seulement le résultat sinon surprise !
Dim R As Double
R = CSng(11230.2) + 0.001
MsgBox R

Daniel
3
Rejoignez-nous