Fórum subtracao ?!?!?! #223827

Por que vc não tenta usar variaveis do tipo CURRENCY eu sempre me dei bem com ela em casos de valores monetários.

Qualquer coisa estamos por aqui...

Luis Neto

ae cara.. nunca ouvi falar dela mas posta um exemplo pra mim ter noção como funciona


vlw

Claro cara...
Ai vai 2 exemplos...

crie uma nova aplicação, dai coloque 3 edit, sendo os dois primeiros para receber as varaivais e o ultimo o resultado, e coloque um Button

no evento onclik do button, coloque o seguinte antes do Begin

procedure TFrom1.Button1Onclick( sender: object)
var
valo1, valor2, total: CURRENCY;
begin
valor1:= strtocurr(edit1.text); // convertendo de string para currency
valor2:= strtocurr(edit2.text);
total:= valor1 - valor2;
edit3.text:= formatfloat(´#,0.00´, total);
end;

veja se funciona, pois estou na rua, e o que eu pode lembrar foi isso, olha qualquer coisa estarei por aqui.

se for o caso de tabelas não precisa usar variáveis (só em caso de necessidade para alguma rotina)

basta colocar

TabelaValor.value - Tabela2Valor.value (lembrando que os campos de valores tem que ser monetários - $ Money - )

se mesmo assima der problemas conferta o formato de dados
ex:

CurrToStr( TabelaValor.value - Tabela2Valor.value);