Arrondir des nombres à un certain nombre de décimales

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 110 fois - Téléchargée 45 fois

Contenu du snippet

Utilisez la fonction format (mais mettez pas c: en argument ;)

Source / Exemple :


dim lenombre1
dim lenombre2
dim leresultat

lenombre1 = 77
lenombre2 = 78
leresultat = lenombre1 / lenombre2

leresultat = format (leresultat,"#0,000")

text1.text = leresultat

Conclusion :


Ici j'ai arrondi au millième près mais vous avez juste à changer le nombre de décimales dans format pour ajuster ça

A voir également

Ajouter un commentaire

Commentaires

Il y a beaucoup plus simple : utiliser le deuxième argument de la fonction Round, qui précise le nombre de décimales.
Ex : Round(56.125756,3) renvoie 56.126
Vous avez raison tous les deux, la seule difference c qu'avec la version de Supo, c que ca marche aussi en VBA. Comme dans Excel ou Access par exemple.
Pis format renvoie une string.. ca serait plus propre un cdbl(format(...)) ;P
(Pour pinailler quoi.. et assurer le passage de ta fonction a vb.net ;)
Au fait : je ne vois pas l'utilité de toutes ces lignes superflues.... En fait, ton code se résume à ceci :
text1.text = format (77 / 78,"#0,000")
ikariShinji
Messages postés
18
Date d'inscription
mercredi 13 mars 2002
Statut
Membre
Dernière intervention
2 juin 2005
-
"Il y a beaucoup plus simple : utiliser le deuxième argument de la fonction Round, qui précise le nombre de décimales."

Bien sûr Xentor, mais la fonction Format permet en plus une mise en forme en séparant les milliers par un espace. Par exemple :
Format(50350.489, "###,###,###.00") donne : "50 350,49".

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.