RoundTo() não arredonda corretamente o valor em duas casas

Delphi

09/05/2013

Olá boa noite!

Tenho o seguinte problema:

Estou fazendo uma nota de devolucao, mas tem uma conta q não bate nem a pau.
Pois na calculadora da um valor q dever ser arredondado para cima e no computador
este valor não arredeonda para cima.
Veja a situacao abaixo.


Valor_Bcipi : Double;
Tributos.Pct_Ipi : Double;


Valor_Bcipi := 27,30
Tributos.Pct_Ipi := 5

Valor_Ipi := RoundTo(((Valor_Bcipi * Tributos.Pct_Ipi)/100),-2);


Valor calculado na Calculadora = 1,365

valor calculado no programa Valor_Ipi = 1,36


Alguém poderia me dizer porque no computdor não arredonda o valor para cima?
Pois na minha nota de devolução o valor é R$ 1,37.

100+

ANT.CARLOS/SP


Antonio Jesus

Antonio Jesus

Curtidas 0
POSTAR