Discussion :

[Ministar]

Bonjour !

Je veux arrondir un décimal à deux chiffres après la virgule pour éviter le X.000000000001 qu'il me renvoie.
J'ai regardé la FAQ et je trouve la méthode un peu farfelue...
Il y a une fonction en Delphi qui n'existe pas sur Lazarus, que j'aimerais bien avoir :

Code :

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

function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;

Description :

• Appelez RoundTo pour arrondir AValue à la puissance de dix spécifiée.
• AValue est la valeur à arrondir.
• ADigit indique la puissance de dix à laquelle vous voulez arrondir AValue. Cela peut être toute valeur entre -37 et 37 (compris).
• RoundTo utilise l'arrondi "de banque" pour déterminer comment arrondir la valeurs qui se trouvent exactement au milieu des deux valeurs ayant le nombre de chiffres significatifs souhaité. Cette méthode arrondit à un nombre pair dans le cas où AValue n'est pas plus proche d'une des deux valeurs.

[Clandestino]

Google is Ur friend :

Code :

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

1
2
3
4
5
6
7
8
9
10
function R2(const AValue : extended ; const ADigit : TRoundToRange) :
  extended ;
var X : extended ; i : integer ;
begin
  X := 1.0 ;
  for i := 1 to Abs(ADigit) do X := X * 10 ;
  if ADigit<0
    then Result := Round(AValue * X) / X
    else Result := Round(AValue / X) * X ;
  end {R2} ;