Arredondameto de variavel
15/03/2003
0
Gostaria de saber como faço o arredondamento de variaveis.
Ex :
var
x : real;
Essa variavel x recebe apos uma divisao o seguinte valor :
13,875
Como faço pra arredondar isso para 13,88 por exemplo.
Obrigado
Anonymous
Posts
15/03/2003
Carnette
É meio maluco mas, funciona
variavelnova := X+Abs(Frac(Round(Frac(X))-Frac(X)*100)/100)
15/03/2003
Aroldo Zanela
Pra quem não gosta muito de matemática:
procedure TForm1.Button1Click(Sender: TObject); var x: Real; begin x := 13.875; x := StrToCurr(FloatToStrF(x,ffNumber,10,2)); ShowMessage(CurrToStr(x)); end;
Nas versões mais recentes do Delphi:
procedure TForm1.Button1Click(Sender: TObject); var x: Real; begin x := 13.875; ShowMessage(CurrToStr(SimpleRoundTo(x))); // Nem tudo é perfeito end;
15/03/2003
Carnette
Pra quem não gosta muito de matemática:
procedure TForm1.Button1Click(Sender: TObject); var x: Real; begin x := 13.875; x := StrToCurr(FloatToStrF(x,ffNumber,10,2)); ShowMessage(CurrToStr(x)); end;
Nas versões mais recentes do Delphi:
procedure TForm1.Button1Click(Sender: TObject); var x: Real; begin x := 13.875; ShowMessage(CurrToStr(SimpleRoundTo(x))); // Nem tudo é perfeito end;
Mas BAHHHHHH....Eu quebrando a cabeça aqui pra formular...e a função já estava pronta....É....babei por esta....
Valeu Zanela
16/03/2003
Anonymous
Faça o seguinte:
x := StrToFloat(FormatFloat(´0.00´,x));
Clique aqui para fazer login e interagir na Comunidade :)