subtracao ?!?!?!
ae galera seguinte.. fazendo um programinha pra calcular .. credito debito. em dinheiro .. tipo como q subtrai um valor desses?
12.000,00 menos 8.000,00 ???
tentei usar a variavel real mais num da certo :-) preciso de uma dica ae.. vlw t+
12.000,00 menos 8.000,00 ???
tentei usar a variavel real mais num da certo :-) preciso de uma dica ae.. vlw t+
Slack
Curtidas 0
Respostas
Luis Neto
01/04/2004
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
Qualquer coisa estamos por aqui...
Luis Neto
GOSTEI 0
Slack
01/04/2004
ae cara.. nunca ouvi falar dela mas posta um exemplo pra mim ter noção como funciona
vlw
vlw
GOSTEI 0
Luis Neto
01/04/2004
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);
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);
GOSTEI 0