Arredondamento utilizando RoundABNT

[Onclick]

Boa dia a todos!

Estou com um problema relativo ao erro do título, e não sei o procedimento correto a seguir.

Tenho os seguintes valores relativos a uma venda de produto por metro:

      Quantidade : 1,5

      Preço: 40,13

Na multiplicação 1,5 * 40,13, o resultado de 60, 195 ao ser passado como parâmetro para a rotina RoundABNT não retorna 60,20 e sim 60,19.

 

Tentei passar como parâmetro o resultado da multiplicação em variáveis Currency e Double também passei como parâmetro a própria multiplicação dos valores,  e o resultado sempre é 60,19.

Obrigado.

[windsoft]

Aparentemtente está errado mesmo. Veja a norma ABNT:

Citar

Quando o algarismo imediatamente seguinte ao último algarismo a ser conservado for 5 seguido de zeros, dever-se-á arredondar o algarismo a ser conservado para o algarismo par mais próximo. Conseqüentemente, o último a ser retirado, se for ímpar, aumentará uma unidade. Exemplo: 4,550 0 arredondados à primeira decimal temos: 4,6.

 

[windsoft]

Fiz um teste aqui com os valores que você citou e não tive problemas. O resultado foi 60,20 mesmo.

Segue o teste que fiz pra vc dar uma olhada.

[Daniel Simoes]

Também não consegui reproduzir o problema... o teste abaixo, deu OK

  dblTotal := 1.5 * 40.13;
  CheckEquals( 60.20, RoundABNT(dblTotal, 2), 0.00001);   

 

[Onclick]

3 horas atrás, windsoft disse:

Fiz um teste aqui com os valores que você citou e não tive problemas. O resultado foi 60,20 mesmo.

Segue o teste que fiz pra vc dar uma olhada.

Eu fiz um teste com este código de Exemplo e o meu resultado continua sendo o 60,19. 

Abaixo estão o form de teste e os valores que estão sendo calculados dentro da função.

Aparentemente o problema que estou tendo é que a variável FracCalc da funcão RoundABNT, que recebe o resultado da parte fracionária de 19,5, não está recebendo o valor 50 e sim 49.

 

Obrigado.

[Daniel Simoes]

De detalhes da sua IDE e verão 

[Onclick]

O ACBr foi atualizado no inicio de setembro

. 

[Daniel Simoes]

Deve ser algo no seu ambiente... (eu não tenho o Delphi 2010)...

Parece tudo correto com a RoundABNT... Reproduzi o mesmo código (com os mesmos tipos), e testei no Delphi Rio e Delphi 7.. em ambos funcionaram...

procedure TForm1.btCalcularClick(Sender: TObject);
var
  nQtd, nValor, nResultado: Double;
begin
  nQtd := StrToFloatDef(edQtd.Text, 0);
  nValor := StrToFloatDef(edValor.Text, 0);
  nResultado := nQtd * nValor;
  nResultado := RoundABNT(nResultado, 2);
  edResultado.Text := FloatToStr( nResultado );
end;

No Delphi Rio:

 

No Delphi 7

Verifique se você não tem modificações nos fontes do ACBr, que podem estar influenciando no resultado... na dúvida, baixe tudo novamente em outra pasta...

[geanjesus]

nao seria o caso de voce usar a simpleroundto ao inves de simpleroundtoex ..na funcao RoundABNT...teste ai..e me diga