Substração com Decimal
Pessoal, estou fazendo uma rotina pra subtrair 2 dbedit´s mas não estou conseguindo:
[b:efd4a59974]var qnttotal, qntentregue, qntsobra : REAL;
begin
qnttotal := datamodule2.entrega.FieldByname(´quantidade´).AsFloat;
qntentregue := datamodule2.entrega.FieldByname(´QNTD_ENTREGUE´).AsFloat;
qntsobra := qnttotal - qntentregue;
dbEdit4.Text := (qntsobra);[/[/b:efd4a59974]quote]
O que está faltando?
Obs: Os campos quantidade e qntd_entregue estão definidos como decimal no banco de dados... Mas não consegui fazer a conta de jeito nenhum..
Alguem ai pode me ajudar?
Obrigado.
Abraços
begin
qnttotal := datamodule2.entrega.FieldByname(´quantidade´).AsFloat;
qntentregue := datamodule2.entrega.FieldByname(´QNTD_ENTREGUE´).AsFloat;
qntsobra := qnttotal - qntentregue;
dbEdit4.Text := (qntsobra);[/[/b:efd4a59974]quote]
O que está faltando?
Obs: Os campos quantidade e qntd_entregue estão definidos como decimal no banco de dados... Mas não consegui fazer a conta de jeito nenhum..
Alguem ai pode me ajudar?
Obrigado.
Abraços
Ricieri
Curtidas 0
Respostas
Adriano Santos
09/05/2007
Pessoal, estou fazendo uma rotina pra subtrair 2 dbedit´s mas não estou conseguindo:
[quote:b446e177e0=´soma´][b:b446e177e0]var qnttotal, qntentregue, qntsobra : REAL;
begin
qnttotal := datamodule2.entrega.FieldByname(´quantidade´).AsFloat;
qntentregue := datamodule2.entrega.FieldByname(´QNTD_ENTREGUE´).AsFloat;
qntsobra := qnttotal - qntentregue;
dbEdit4.Text := (qntsobra);[/b:b446e177e0]
O que está faltando?
Obs: Os campos quantidade e qntd_entregue estão definidos como decimal no banco de dados... Mas não consegui fazer a conta de jeito nenhum..
Alguem ai pode me ajudar?
Obrigado.
Abraços[/quote:b446e177e0]
Para colocar o valor subtraído no Edit vc precisa formatar. O Edit não vai aceitar variavel Real.
dbEdit4.Text := FormatFloat(´#,0.00´, qntSobra);
Esta é só uma forma. Pode usar por exemplo como assim:
dbEdit4.Text := FloatToStr(qntSobra);
GOSTEI 0