Arrondir un résultat à 2 chiffres après la virgule tenant compte du 3ème chiffre

Signaler
-
 Magidev -
Bonjour,

Suite au résultat d'une division ou d'une multiplication le résultat peut avoir "X" chiffres après la virgule.
Et j'aimerai arrondir ce résultat à deux chiffres après la virgule et ceci tenant compte de la valeur du troisième :
>5 ou <5.

Exemple :

12,5861... arrondi en 12,59
12,5848... arrondi en 12,58

Merci de m'aider
Je vous signale que je suis débutant, merci d'employer
un langage simple.
Merci

3 réponses

Je pense que ceci peut t'aider :

Private Sub Command1_Click()
'récupération de la valeur tronquée dans Text1 :
'troncature à deux chiffres : on prend donc 100 soit 10^2
trunc = Int(Val(Text1.Text) * 100) / 100
'disjonction des cas sur le reste :
reste = Val(Text1.Text) - trunc
If reste > 0.005 Then trunc = trunc + 0.01
'affichage du résultat dans Text2
Text2.Text = trunc
End Sub

A+

ceyquem (www.lesiteweb.fr.st)

Round(TonNombre,2)
Bon plaisir...

A+
C'est vraiment pas compliqué:

Round (variable,nombre de décimales)

Exemples:

Text1.text = Round(resultat.text,2)

Si tu ne met pas de = , tu dois pas mettre les paranthèses

VB utilise l'arrondi mathématique correct en tenant compte de toutes les décimales du résultat.

[mailto:magidev@hotmail.com mailto:magidev@hotmail.com]
http://www.magidev.be.tf