Arredondamento

15/08/2008

1

Ola,

Quando eu tiver um valor fracionado gostaria de arredondar sempre para o próximo valor decimal, tipo:


5,32 para 6
10,56 para 11
16,01 para 17
20,09 para 21

e assim por diante ????


Responder

Posts

15/08/2008

Steve_narancic

resolvi assim:
var
  x, y: Real;
begin

   x:= StrToFloat(Edit1.Text);
   y:= StrToFloat(Edit2.Text);


   if (x / y) > Trunc(x / y) then
     caption:=  FloatToStr(Trunc(x / y)+ 1)
   else
      caption:=  FloatToStr(roundto((x / y),-2));



end;



Responder

15/08/2008

Marco Salles

resolvi assim: Código:
var 
  x, y: Real; 
begin 

   x:= StrToFloat(Edit1.Text); 
   y:= StrToFloat(Edit2.Text); 


   if (x / y) > Trunc(x / y) then 
     caption:=  FloatToStr(Trunc(x / y)+ 1) 
   else 
      caption:=  FloatToStr(roundto((x / y),-2)); 
end;


É so Truncar e adicinar mais Um

X:=Trunc(x)+1;



Responder