Arredondamento
15/08/2008
0
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 ????
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 ????
Steve_narancic
Curtir tópico
+ 0
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:
end;
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)); É so Truncar e adicinar mais Um
X:=Trunc(x)+1;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
