Array
(
)

Subtração de variável Double

Okama
   - 21 set 2004

Talvez eu esteja ficando louco mas não consegui subtrair valores com decimais.

Se eu colocar valores inteiros funciona bem, com valores decimais nunca chego a SALDO = 0. Tente com saldo a 333,33 e desconte valores de 111,11.

#Código


var
Form1: TForm1;
SALDO: Double;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
SALDO := StrToFloat( Edit1.Text );
end;


procedure TForm1.Button2Click(Sender: TObject);
Var Valor: double;
begin
Valor := StrToFloat( Edit2.Text );

Saldo := Saldo - Valor;
Memo1.Lines.Add(FormatFloat(´0.00´, valor) );
Edit1.Text := FormatFloat(´0.00´, Saldo);

if SALDO = 0 then
ShowMessage(´Saldo Zerado´);
end;



Aroldo Zanela
   - 21 set 2004

Colega,

Sim é um problema de armazenamento da mantissa. Use tipos currencys para evitar o problema.

Faça o exemplo abaixo e depois troque Currency por qualquer tipo Real, como Double:

#Código

var saldo: Currency;
begin
saldo := 333.33;
saldo := saldo - 111.11;
ShowMessage(FloatToStr(saldo));
saldo := saldo - 111.11;
ShowMessage(FloatToStr(saldo));
saldo := saldo - 111.11;
ShowMessage(FloatToStr(saldo));
end;



Marcelo Saviski
   - 21 set 2004

Na Unit math existem algumas funções p/ auxiliar na comparação de nº de ponto flutuante, considerando um ´desvio´ na precisão.


CompareValue
SameValue

por exemplo:

#Código

if SameValue(3.0401, 3.04, 0.01) then "parecidos"


ou no seu caso, usando a funçaõ IsZero

#Código
if IsZero(SALDo, 0,01) then ...


o último valor Epsilon informa a precisão, nos casos acima 1 centésimo, ´valores com frações menores que 1 centésimo onde o restante do valor fosse igual seriam consideradas iguais de acordo com a precisão mínima 0,01.´


Okama
   - 21 set 2004

Agradeço as respostas.
Trocando o tipo double para Currency resolveu o problema.

Valeu! :wink: