Fórum Substração com Decimal #341542

09/05/2007

0

Delphi

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


Ricieri

Ricieri

Responder

Posts

09/05/2007

Adriano Santos

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);



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar