Arredondamento de valores.

Question

Preciso que o valor da variavel Anterior:=21.112,854707 fique com o valor de 21.112,86 como fa�o?...

Fabio.hc · Answer

Tente assim:[code:1:0bb973f8da]function Arredondar(Valor: Double; Dec: Integer): Double;var  Valor1,  Numero1,  Numero2,  Numero3: Double;begin  Valor1:=Exp(Ln(10) * (Dec + 1));  Numero1:=Int(Valor * Valor1);  Numero2:=(Numero1 / 10);  Numero3:=Round(Numero2);  Result:=(Numero3 / (Exp(Ln(10) * Dec)));end;[/code:1:0bb973f8da]Esta fun��o arredonda este numero 21.112,854707 para 21.112,85Se vc prescisa arredondar para este numero 21.112,86 ou arredondar qualquer numero sempre para o maior tente assim:[code:1:0bb973f8da]procedure TForm1.Button1Click(Sender: TObject);var num1:Double;begin   num1:=StrToFloat(edit1.text);   num1:=Arredondar((num1+0.005),2);   Label1.Caption:=FloatToStr(num1);end;[/code:1:0bb973f8da]...

Quintelaj · Answer

vc pode definir o modo em que vc faz o arrendondamento usando a fun��o RoundTo() e configurar o tipo de arrendondamento com a fun��o SetRoundModeest�o na unit Math...

Blivio · Answer

Use a fun��o [color=red:b33f077d32]RoundTo[/color:b33f077d32] da seguinte forma:

suponha que voc� queira arredondar duas casas decimais da vari�vel vExemplo, inicialmente com o valor 2254,6367;

vExemplo := RoundTo(vExemplo, -2); //para duas casas ap�s a v�rgula (resultado = 2254,64)
vExemplo := RoundTo(vExemplo, 2); //para duas casas antes da v�rgula (resultado = 2300)
vExemplo := RoundTo(vExemplo, -3); //para tr�s casas ap�s a v�rgula (resultado = 2254,637)
vExemplo := RoundTo(vExemplo, 3); //para tr�s casas antes da v�rgula (resultado = 2000)

Observe que o 1.� par�metro � a vari�vel ou o valor a ser arredondado, enquanto o 2.� par�metro indica se o arredondamento deve ser feito antes ou ap�s a v�rgula. Se quiser ap�s a v�rgula (que � o normal), passe um n� inteiro negativo como o 2.� par�metro.

N�o esque�a que para este exemplo, foi copiada apenas uma pequena parte do programa, ou seja, a vari�vel usada (vExemplo) n�o foi declarada e nem outras op��es tamb�m. Declare a unit �Math� (ex.: uses Math) para que o programa funcione.

Obs.: Esta fun��o RoundTo existe no Delphi 6 pois foi testada nele. Com certeza seus sucessores devem t�-la mas, quanto aos antecessores, n�o tenho certeza.

Espero ter ajudado em alguma coisa e, sempre que sei alguma coisa, tenho enorme satisfa��o em compartilhar o conhecimento.

Fabio.hc · Answer

[quote:e02f127595=�alexgpedroso�]Preciso que o valor da variavel Anterior:=21.112,854707 fique com o valor de 21.112,86 como fa�o?[/quote:e02f127595]De acordo com o problema acima s� a fun��o RoundTo n�o resolve.Porque o alexgpedroso quer arredondar com 2 casas decimais sempre para cima, independente do valor da 3� casa decimal. Para resolver usando a fun��o RoundTo, foi o seguinte:  [code:1:e02f127595]procedure TForm1.Button1Click(Sender: TObject); var num1:Double;begin   num1:=StrToFloat(edit1.text);   num1:=RoundTo((num1+0.005),-2);   Label2.Caption:=FloatToStr(num1);end;[/code:1:e02f127595]Quando passei a fun��o para arredondar eu usava o Delphi5, a partir de hoje estou usando o Delphi7, vou rever as minha fun��es....

F�rum Arredondamento de valores. #208815