Arredondar Casas decimais

Delphi

13/01/2006

Bom dia pessoal do fórum!

Pessoal estou com uma pequena dificuldade, meu cliente quer que eu arredonde as casas decimais dos campos que contenham valores, diz ele q se der R$ 125,54, o cliente dele só vai querer pagar 125,50 e ele pede 0,04 q se for acumulando no final do mês terá sido um valor bem considerável, então ele quer o seguinte.

Digamos q o valor retornado pelos calculos dê 250,23 então ele quer que fique apenas 250,20, se der 250,56 deve ficar 250,60.

Espero q vc me ajudem, já tentei com Round(x), mas não deu muito certo não. :(

Obrigado pessoal!!


Andrew

Andrew

Curtidas 0

Respostas

Martins

Martins

13/01/2006

Andrew!!!

faça o seguinte:

Não sei exatamente qual a versão do seu Delphi, mas se for da 6 em diante, inclua na uses a unit [b:869b5065b4] Math[/b:869b5065b4].

então vc poderá usar os códigos abaixo:


    EditX.Text := FormatFloat(´#,0.00´, RoundTo(Valor, -1));



ou


    EditX.Text := FormatFloat(´,0.00´, SimpleRoundTo(Valor, -1));



Existem aqueles q preferem fazer a formatação deixando apenas uma casa decimal, forçando o arredondadamento, eu não sei se isso é perfeitamente legal, mas funciona, se alguém puder comentar a respeito, os prós e contras dessa formatação com apenas uma casa decimal, por favor o faça.

Falow!!!

Boa sorte!!!


GOSTEI 0
POSTAR