RoundToCeil (rtl)

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

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

Result	La valeur arrondie à l'entier supé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.731;
  r := RoundToCeil(d,2); // r = 1.74

  d := 0.900001;
  r := RoundToCeil(d,2); // r = 0.91

  d := 0.9000001;
  r := RoundToCeil(d,2); // r = 0.90

  d := 0.9000005;
  r := RoundToCeil(d,2); // r = 0.90

  d := 0.9000006;
  r := RoundToCeil(d,2); // r = 0.91
end;

Voir aussi:

— Développement DSM — Développement DSM —