Datas e DBEdit

[Arkanjo2001 0]

var venc, Pagto: Tdate;

difdias :double;

 

begin

venc:=StrToDate(data1.Text);

Pagto:=StrToDate(data2.Text);

difdias :=trunc((pagto - venc));

Label1.Caption:=FloatToStr(difdias);

 

Gostaria que o terceiro dbedit recebesse o valor do Label1 ou diretamente a diferença das datas

[Rodrigo Miss 1]

var
	Vcto, Pgto: Double;
begin
	Vcto:= StrToDate(data1.Text);
	Pgto:= StrToDate(data2.Text);
	Label1.Caption:= FloatToStr(Pgto - Vcto);

ok ok ! http://forum.imasters.com.br/public/style_emoticons/default/natal_smile.gif

[Arkanjo2001 0]

Melhorou e muito. Mas o que eu quero é passar o resultada daquele label1. caption para uma tabela. Ou seja, um dbtext ou dbedit. Para que a pessoa possa ver no dbgrid que está fazendo. Porque são vários cheques que serão comprados de uma só vez.

[Rodrigo Miss 1]

Basta enviar o valor direto pra qry entao ...

qryDIFERENCA.Value:= (Pgto - Vcto);