Subtra��o currency

Question

ola pessoaltenho que fazer uma subtra��o de dois campos currency mas nunca funciona...Queria subtrair o total2 - total, mas nao funciona aparece um monte de  numeros sem logica....fiz da seguinte form...

Marco Salles · Answer

talvez esta nao seje a melhor maneira de realizar isto..voce esta na verdade percorrendo registro por registro na sua base de dados e armazenando esses valores em duas vari�veis que postriormente ser�o subtraidas..esta opera��o e custodiosa no item desempenho, apesar de voce sabiamente desabilitar os controles conscientes de dados conectados a tabela o que melhora em performace...Mas voltando no seu problema especifico, acredito que o que esta ocorrendo e que voce nao [b:5ad10534c6]inicializou os valores das vari�veis total e total2[/b:5ad10534c6]....elas possivelmente conterr�o Valores indesejav�is..tente isto

var 
Total2,Total,total3 Currency; 
begin 
table1.DisableControls; 
try 
total:=0;
Total2:=0;
while not table1.EOF do begin 
Total := Total + table1.FieldByName(�subtotal�).AsCurrency; 
Total2 := Total2 + table1.FieldByName(�Juros�).AsCurrency; 
Table1.Next; 
end; 
finally 
table1.EnableControls; 
total3 := total - total2; 
label5.Caption := FormatFloat(�#,0.00�, Total); 
label3.Caption := FormatFloat(�,0.00�, Total2); 
label10.Caption := FormatFloat(�,0.00�, Total3); 
end;

R�mulo Barros · Answer

Amigo, �[b:9ad75e9994]acredito[/b:9ad75e9994]� que o problema esteja na inicializa��o das vari�veis. Quando vari�ves s�o locais, temos sempre q inicializ�-las. Ent�o, segue o C�digo:

Var
  Total,Total2,Total3 : Currency;
Begin
   Total  := 0 ;
   Total2 := 0 ;
   Total3 := 0 ;
    ...  ...
End;

:roll:

Marcelo_vms · Answer

consegui....ficou muito legal...obrigado amigos......

F�rum Subtra��o currency #254243