Fórum Porque o delphi inciste q os valores sao diferentes? #327174
10/08/2006
0
ValorReal := 0;
TbParcelas.First;
while not TbParcelas.EOF do
begin
if (not Empty(TbParcelasCOD_BOLETA.AsString)) and (Trim(TbParcelasTIPO_DOC.AsString) <> ´4´) then
begin
TbParcelas.Edit;
TbParcelasCOD_BOLETA.Clear;
TbParcelas.Post;
end;
ValorReal := ValorReal + ExatoCurrency(TbParcelasVALOR.AsCurrency, 2);
TbParcelas.Next;
end;
ValorReal := ExatoCurrency(ValorReal, 2);
if ValorReal <> ExatoCurrency(TbPrincipalVALOR_VENDA.AsCurrency, 2) then
begin
Application.MessageBox(PChar(´Existe uma diferença de R$ ´ + FormatFloat(´#0.00´, ValorReal) + ´ no somatório das parcelas´), ´Atenção´, MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_APPLMODAL);
Exit;
end;
O conteúdo da minha variavel [b:b2b26be19a]ValorReal[/b:b2b26be19a] é de 102,45 e o conteúdo do meu [b:b2b26be19a]TbPrincipalVALOR_VENDA.AsCurrency[/b:b2b26be19a] também é de 102,45
Mas no if embaixo, ele fala que é diferente.. como pode ser? Já debuguei já fiz de tudo, as duas são iguais... o que pode ser?
Desde já agradeço...
[]s
Titanius
Curtir tópico
+ 0Posts
10/08/2006
Paullsoftware
uma vez aconteceu um caso semelhante com migo, mais foi problemas de arredondamento dos valores mesmo, ele mostrava +/- assim: 1,61 mais o real era 1,60,9 joguei numa string e ví onde tava o problema, não quero dizer que pode ser a mesma coisa mais, vai lá saber né :lol:
Gostei + 0
10/08/2006
Marco Salles
represntação interna do currency...
Porque disso ???
Lembra do tópico
http://forum.clubedelphi.net/viewtopic.php?t=78527&highlight=currency
Uma saida talvez e na comparação truncar em uma quantidade de casas decimais
So não entendi no seu codigo quem é ExatoCuurency
ValorReal := ValorReal + ExatoCurrency ....... ....... ValorReal := ExatoCurrency(ValorReal, 2);
Gostei + 0
10/08/2006
Titanius
Acho que meu problema era por ValorREal ser decladora como Real...
só troquei isso no codigo:
if [b:0369777367]ExatoCurrency([/b:0369777367]ValorReal[b:0369777367], 2)[/b:0369777367] <> ExatoCurrency(TbPrincipalVALOR_VENDA.AsCurrency, 2) then
que funcionou.. estranho, nunca vou entender esse sistema de numeração do Delphi...
[b:0369777367]Marco Salles[/b:0369777367]:
Agora que percebi meu, você é da minha cidade.... trabalha onde?
[]s
Gostei + 0
10/08/2006
Marco Salles
Claro , pois como foi sugerido:
Voce ja percebeu isto outras vezes... é pq vc esquece
Ja ate fez esta pergunta:D :D :D :D
Gostei + 0
10/08/2006
Titanius
[]s
Gostei + 0
11/08/2006
Dmalta
Uma é forçar o arredondamento em código do número de casas decimais usando RoundTo.
uses Math;
{...}
X := RoundTo(X, -2);Quando não é interessante arredondar os fatores da expressão e só queremos comparar dois valores de ponto flutuante em determinada precisão, comparo limitando um coeficiente de precisão (´[i:d8dc8e2d49]epsilon[/i:d8dc8e2d49]´).
A unit [i:d8dc8e2d49]Math[/i:d8dc8e2d49] já tem uma função prontinha pra isso (com overload para vários tipos de dados de ponto flutuante):
var
Parcela, Total, A, B: Double;
begin
Total := 102.45;
Parcela := RoundTo((Total - 10) / 3, -3);
A := Total;
B := 3 * Parcela + 10;
if SameValue(A, B, 3) then
ShowMessage(´A e B são iguais´)
else
ShowMessage(Format(´A e B são DIFERENTES: A = ¬g e B = ¬g´, [A, B]))
end;Trocando SameValue pela expressão ´(A = B)´ dá False, ao invés de True.
Just my 2 cents.
Um abraço,
Gostei + 0
11/08/2006
Marco Salles
Mas não sei se entendio direito fiz ums teste , trocando o valor 10 por StrtoFloat . Ficando assim :
var
Parcela, Total, A, B: Double;
begin
Total := 102.45;
Parcela := RoundTo((Total - 10) / 3, -3);
A := Total;
B := 3 * Parcela +strtofloat(edit1.text);
if SameValue(A, B, 3) then
ShowMessage(Format(´A e B são iguais: A = ¬g e B = ¬g´, [A, B]))
else
ShowMessage(Format(´A e B são DIFERENTES: A = ¬g e B = ¬g´, [A, B]))[b:7edb6704f2]
Essa eu não entendi... :cry: :cry: :cry:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)