Discussion :

[BrunetteCP]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Flagad'aware]

Salut

si je fais ça chez moi ça marche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tenpigs]

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

[ShaiLeTroll]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Cirec]

Salut,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BrunetteCP]

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

[Cirec]

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 !!!

[BrunetteCP]

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