Problème d'arrondi en Delphi

Bonjour,
J'ai un problème d'arrondi, j'ai le chiffre 0.865 et je veux comme résultat 0.87
Mais toutes les fonctions que j'ai essayées en Delphi 2010 me donnent le résultat 0.86 ?

Quelqu'un pourrait m'éclairer ???

Code:

---

1 2 3 4 5 6 7

nbr := 0.865; RoundTo(nbr,-2); Format('%11.2f',[nbr]); FloatToStrF(nbr, ffFixed,11, 2); FormatFloat('0.00',nbr); SimpleRoundTo(nbr,-2);

---

Merci dans l'attente de vous lire

Salut

si je fais ça chez moi ça marche:

Code:

---

1 2 3 4 5 6

procedure TForm1.btn1Click(Sender: TObject); var nbr:Single; begin nbr:=0.865; showmessage (floattostr(RoundTo(nbr,-2))); end;

---

avec Delphi 7 Lite

Le mode d'arrondi de delphi par défaut est l'arrondi bancaire, lorsque la valeur est à mi-chemin l'arrondi va vers la valeur paire. dans ton exemple 0.865 va donc vers 0.86 plutot que vers 0.87 dont le dernier chiffre est impaire.
http://docwiki.embarcadero.com/Libra...r/System.Round

Si tu veux avoir un arrondi au dessus (ce qu'on apprends à l'école) il faut que tu modifies le roundMode
http://docwiki.embarcadero.com/CodeE...dMode_(Delphi)

Je pense que ces infos concernent toutes les versions de Delphi mais je peux me tromper

Delphi XE2 Professional

Single => RoundTo = 0.87 (à partir de nbr = 0,865000009536743, et oui, le Single est imprécis)
Double => RoundTo = 0.86 (à partir de nbr = 0,865)
Double => SimpleRoundTo = 0.86 (à partir de nbr = 0,865) // Ce qui est contraire à ce que dit la documentation de XE2 !
Double => CeilTo = 0.87 (à partir de nbr = 0,865)

Voici l'exemple

Citation:

---

SimpleRoundTo(1.234, -2) = 1.23
SimpleRoundTo(1.235, -2) = 1.24

---

On a déjà beaucoup discuté à ce sujet
Utilisation de l'arrondi sur un calcul
roundto simperoundto currency arrondi incorrect

Il manque vraiment une fonction FloorTo et CeilTo qui serait explicitement l'arrondi par le bas ou par le haut !

Code:

---

1 2 3 4 5 6 7

function CeilTo(const AValue: Double; const ADigit: TRoundToRange): Double; var LFactor: Double; begin LFactor := IntPower(10, ADigit); Result := Ceil(AValue / LFactor) * LFactor; end;

---

Salut,

Citation:

---

Il manque vraiment une fonction FloorTo et CeilTo qui serait explicitement l'arrondi par le bas ou par le haut !

---

il existe aussi la méthode "SetRoundMode"

Code:

---

1 2 3

nbr:=0.865; SetRoundMode(rmDown); showmessage (floattostr(RoundTo(nbr,-2))); // Donne 0.86

---

Code:

---

1 2 3

nbr:=0.865; SetRoundMode(rmUp); showmessage (floattostr(RoundTo(nbr,-2))); // Donne 0.87

---

Edit:
il serait préférable de l'utiliser ainsi:

Code:

---

1 2 3 4 5 6 7 8

var nbr:Single; OldRndMode: TFPURoundingMode; begin nbr:=0.865; OldRndMode := SetRoundMode(rmDown); showmessage (floattostr(RoundTo(nbr,-2))); SetRoundMode(OldRndMode); end;

---

afin de récupérer le mode initiale

4 paramètres son dispo en tout :

Code:

---

1 2	type TFPURoundingMode = (rmNearest, rmDown, rmUp, rmTruncate);

---

Bonjour,

Merci beaucoup mais au début même en précisant SetRoundMode(rmUp) et me donnait toujours 0.86. Mais maintenant tous fonctionne en utilisant la fonction ci-dessous avant :

SetPrecisionMode(pmDouble);

je sais pas pourquoi je suis obliger de préciser cette ligne avant mais bon ça fonctionne.

Merci

par défaut tu es en quelle précision "GetPrecisionMode"?

chez moi j'ai pmExtended par défaut et tout fonctionne sans même besoin de préciser SetRoundMode(rmUp)

Edit:
après quelques testes supplémentaire il semblerait que la version de Delphi utilisé joue un rôle ...

avec D7 peut importe le type (Single, Double, Extended) le résultat donne 0.87
mais avec D2009 seul le type Single donne 0.87 et les autres 0.86 (peu importe l'utilisation ou non de PrecisionMode et RoundMode !!!

Bonjour Cirec,

Pour répondre à ta question, par défaut j'ai aussi la valeur pmExtended

Pour ton info, si je garde ma valeur par défaut qui est pmExtended ¸ça fonctionne pas: Voir l'exemple ci-dessous:
nbr := 0.865;
showMessage (Format('%11.2f',[nbr])); // = 0.86
SetPrecisionMode(pmDouble);
showMessage (Format('%11.2f',[nbr])); // = 0.87