Valores decimais iguais, quando comparado se s�o iguais o delphi entendi como diferente

Question

Senhores,estou com um problema Chato pra resolver..eu tenho um valor de titulo somado com juros Ex.: valor recebibo (T=24.00 + J=2.00) = 26.00 e tenho um valor fixo a receber de 26.00a minha con...

Marco Salles · Answer

Como esta declarado essas Vari�veis ????Qual o tipo ???...

Joel Rodrigues · Answer

Amigo, esse tipo de coisa acontece �s vezes. Pode acontecer de um valor ser 26.00000000001 e o outro 26.00, logo, diferentes.  Voc� pode usar arredondamentos (existem fun��es pra isso) para usar apenas duas casas decimais, por exemplo, al�m de sempre utilizar o mesmo tipo de dados. ...

Marcos Roberto · Answer

Fun��o para arredondamentoRoundTo(Avalue,Adigit);- arredondar n�meros com casas decimais. Tamb�m utiliza o arredondamento do banqueiro.Par�metros:Avalue: Valor a ser arredondado.Adigit: Na pr�tica � a quantidade de d�gitos que se deseja arredondar Avalue. Por exemplo, se voc� deseja arredondar um valor que possui tr�s casas decimais para um novo valor com duas casas decimais, ent�o informe nesse par�metro o valor -2. Adigit aceita valores entre -37 a 37(inclusive). Exemplos:RoundTo (1.234, -2); //retorna 1.23RoundTo (1.235, -2); //retorna 1.24RoundTo (1.245, -2); //retorna 1.24valeu!...

Marco Salles · Answer

Bem as vezes so alterando o tipo de declara��o das vari�veis resolve

Mas como nossos amigos ja adiantaram em algumas fun��es para esta finalidade , gosto muito
da fun��o SameValue da Unidade Math

veja a sua assinatura

function SameValue(const A, B: Extended; Epsilon: Extended): Boolean;
begin
if Epsilon = 0 then
Epsilon := Max(Min(Abs(A), Abs(B)) * ExtendedResolution, ExtendedResolution);
if A > B then
Result := (A - B) <= Epsilon
else
Result := (B - A) <= Epsilon;
end;

Pablo Vargas · Answer

Ja tive esse problema tamb�m, e nem com fun��es de arredondamento consegui resolver, tive que apelar para uma solu��o de contorno

tipo

1�: multiplica tuas vari�veis por 100
2�: fa�a um Trunc, tirando o que ficar de casas decimais
3�: divida por 100
4�: compare suas vari�veis

confesso n�o ser uma solu��o elegante, mas te garanto que funciona.

Jesus Lima · Answer

Amigos muito obrigado pelas respostas... realmente todas as solu��es funcionaram... e o problema realmente era casas decimais porem o estranho � que o delphi n�o mostrava o erro...

mesmo assim obrigado pela ajuda de todos...

F�rum Valores decimais iguais, quando comparado se s�o iguais o delphi entendi como diferente #418139