Arredondando errado Delphi XE7 - RoundTo

[Daniel Carus]

Olá!

Fazendo uns testes aqui com arredondamento no Delphi Xe7, identifiquei que a função RoundTo do delphi me traz um arredondamento errado.

se fizer o RoundTo( 153.925 , -2 ) e me retorna 153,92

se fizer o RoundTo( 153.725 , -2 ) e me retorna 153,73

 

testei no Xe8 também ocorre, ai fui la no Delphi 2007, e faz certo.
Procurei na web por outras formas de arredondar e também ocorre o problema com outras funções.

Alguem que tem o XE de alguma versão pode testar faz favor, pois to achando q o bug é na unit Math do delphi.

Vlw

[Daniel Simoes]

Se você quer fazer arredondamento de acordo com as legislações Brasileiras, use:

ACBrUtil.RoundABNT()

 

[Juliomar Marchetti]

ACBrUtil.pas confere lá

[EMBarbosa]

Para maior explicação, existem na verdade variadas normas de arredondamento. RoundTO usa a chamada "Banker's rounding". Infelizmente a wikipédia em português não tem um artigo explicativo, só em inglês.

[Marcos Rogerio Zaccaro]

Infelizmente o ACBrUtil.RoundABNT também falha, simule com a seguinte formula: ACBrUtil.RoundABNT(4.93 * 0.5, 2);

Seguindo as normas ABNT deveria dar 2,47 mas é apresentado 2,46

Pois 4.93 * 0.5 = 2.465 arredondando para duas casas 2,47

 

Editado 28 Fevereiro, 2020 por Marcos Rogerio Zaccaro

[BigWings]

30 minutos atrás, Marcos Rogerio Zaccaro disse:

Pois 4.93 * 0.5 = 2.465 arredondando para duas casas 2,47

Segundo a regra deve ficar 2,46 mesmo:

https://www.sofazquemsabe.com/2011/01/como-fazer-arredondamento-da-numeracao.html