RoundToFloor (rtl)

Function RoundToFloor(X:double; dec:Integer):double;

Cette fonction retourne la valeur arrondie à l'entier inférieur d'un nombre flottant.

Result	La valeur arrondie à l'entier inférieur de l'argument au nombre de décimales.
X	Nombre.
dec	Nombre de décimales

Tip : Cette fonction arrondi à dec+4 décimales puis applique la fonction ceil

Exemple

var d,r:double; 
begin
  d := 1.700;
  r := RoundToFloor(d,2); // r = 1.70

  d := 1.709;
  r := RoundToFloor(d,2); // r = 1.70

  d := 1.6999991;
  r := RoundToFloor(d,2); // r = 1.69

  d := 1.6999995;
  r := RoundToFloor(d,2); // r = 1.70

  d := 1.6999996;
  r := RoundToFloor(d,2); // r = 1.70
end;

Voir aussi:

— Développement DSM — Développement DSM —