[Karsh]

Взято с decoding.narod.ru:

Код:

Как правильно округлять дробные числа?

// Precision = 1 - округлить до целых
// Precision = 10 - округлить до десятых
// Precision = 100 - округлить до сотых, и т.д.
function RoundEx( X: Double; Precision: Integer ): Double;
var
  ScaledFractPart, Temp: Double;
begin
   ScaledFractPart := Frac( X ) * Precision;
   Temp := Frac( ScaledFractPart );
   ScaledFractPart := Int( ScaledFractPart );
   if Temp >= 0.5 then ScaledFractPart := ScaledFractPart + 1;
   if Temp <= -0.5 then ScaledFractPart := ScaledFractPart - 1;
   RoundEx := Int( X ) + ScaledFractPart / Precision;
end;