iBase.ru Forum

Код: Выделить всё

library doo_round;

function round_math (var Value : Double) : Double; cdecl; export;
begin
  result := trunc (value) + trunc (frac (value)*2);
end;

function round_to_MIN_CU (var value, min_cu:double) : Double; cdecl; export;
var
  a : double;
begin
  if min_cu = 0 then result := value
                else begin
                       a := value/min_cu;
                       result := round_math (a) * min_cu;
                     end;
end;

exports
  round_math, round_to_MIN_CU;

begin
  System.IsMultiThread:=True;
end.