Arrondir un resultat VBA ça doit etre facile mais bon ...

cs_yaya31 Messages postés 125 Date d'inscription lundi 3 février 2003 Statut Membre Dernière intervention 11 décembre 2003 - 27 août 2003 à 10:03
cs_yaya31 Messages postés 125 Date d'inscription lundi 3 février 2003 Statut Membre Dernière intervention 11 décembre 2003 - 27 août 2003 à 10:55
re bonjour

j ai cette ligne de code
somme = (rs.Fields(1) * 1.196 - rs.Fields(2)) + (rs.Fields(3) * 1.196)

j ai declaré somme en Double
J aimerais arrondir le resultat à 2 chiffres apres la virgule. ça doit etre tout con mais je sais pas comment on fait!
merci d avance

Amaya ;)

4 réponses

RicoNuch Messages postés 140 Date d'inscription mercredi 18 juin 2003 Statut Membre Dernière intervention 16 décembre 2006
27 août 2003 à 10:43
Hello !

Essaye ça :

somme = Format((rs.Fields(1) * 1.196 - rs.Fields(2)) + (rs.Fields(3) * 1.196), "#.00")

RicoNuch
0
cs_neria Messages postés 319 Date d'inscription vendredi 21 février 2003 Statut Membre Dernière intervention 16 février 2009
27 août 2003 à 10:43
Salut yaya !

Pour ton problème je pense que tu devrais ( dans une fonction )
- Isoler la partie décimale ( var = somme - int(somme) )
- Prendre les deux premiers chiffres (mid)
- Regarder le troisième et s'il est supérieur ou egal à 5
- Si oui tu incrémente
- Tu réassemble le tout ( partie entière + décimale )
- Et tu le renvoie

Voilà, j'ai pas trouvé plus court ! J'espère que ça pourra t'aider !

@+
0
cs_neodante Messages postés 2835 Date d'inscription lundi 11 août 2003 Statut Modérateur Dernière intervention 16 décembre 2006 11
27 août 2003 à 10:44
8-) Neodante 8-)

As-tu essayé la fonction Format(Valeur à convertir, "0.00") ?
Le asyntaxe n'est peut-être pas bonne mais l'aide te donnera la vraie ! Désolé d'être aussi flmoue mais cela devrait te donner la voie !
@+
0
cs_yaya31 Messages postés 125 Date d'inscription lundi 3 février 2003 Statut Membre Dernière intervention 11 décembre 2003
27 août 2003 à 10:55
merci RicoNuch ça marche nickel
et merci aux autres aussi
Amaya ;)
0
Rejoignez-nous