  MathPack     DOUBLE
PRECISION      . 
""       .  
        .

       
   Double:

  function RoundUp(X: Double): longint;
  begin
    if X < 0
    then Result := Trunc(X-0.5)
    else Result := Trunc(X+0.5);
  end;

 ,     InterBase    
       
 UDF.   :

DECLARE VARIABLE I INTEGER;
...
I = NotRounded*N;
Rounded = I/N;
...
 N -   

,     InterBase   :)

,   :

IntPower   -     
IntPower10 -     
RoundTo    -       

   InterBase    Funcs.sql

Sergei Zabelich
E-mail: zabelich@mail.ru

