[clos] arondir [Fermé]

Signaler
Messages postés
4
Date d'inscription
mercredi 4 avril 2012
Statut
Membre
Dernière intervention
8 avril 2012
-
Messages postés
4
Date d'inscription
mercredi 4 avril 2012
Statut
Membre
Dernière intervention
8 avril 2012
-
merci PhthonGreg pour la reponse mai jai pas compris le 7 et le 1 de I := Copy (Edit1.Text,7,1).
jai un autre probleme jai besoin d'une fonction qui
arrondir un nombre decimal deux chiffres apres la virgule ( le 3eme chifre apres la virgule 5) par exp le chifre 120.265 en 120.27 (jai utuliser FormatFloat mai cette fonction n'arrondit pas le 5).

voila lalghorithme a peut pris on
- verifie le 3eme chiffre apres la virule (recuperer la valeur du 3eme chiffre apres la virgule question precedente) si = a5 en ajoute un 0.01 est
apres fair le fonction darondissement.

ou bien exp un autre alghorithme

a:=nombre*100
verifie si le 3eme chifre apres la virgule de 'a'=5 on ajoute le 1 est apres divisé par 100 (b:=a/100)
exp:
a:=120.265
a:=(120.265*100)+1
a:=12027.5/100
a:=120.275
b:=FormatFloat('0.00',a);
b=120.27