Dias entre um periodo

[thianolima 0]

eu quero receber a quantidade de dias entre um periodo aonde o usuarios digita a data inicial e a final e dai eu tenho a qtd de dias entre essas duas datasCOMO FAÇO ISSO???

[Pezzin 0]

VAR DIAS :INTEGER;DIAS:=STRTODATE(EDIT2.TEXT) - STRTODATE(EDIT1.TEXT);

[thianolima 0]

valeu galera....

[EderDias 0]

amigo...aqui vai uma dica tbem boa

 

function DiasDeGarantia(Compra: TDate; Garantia: Integer): Integer;var Venc: TDate;begin Venc := IncMonth(Compra, Garantia); Result := Trunc(Venc - Date);end;procedure TForm1.EncartaButton1Click(Sender: TObject);var Dias: Integer;begin Dias := DiasDeGarantia(StrToDate('01/06/2004'), 12); if Dias >= 0 then   ShowMessage(IntToStr(Dias) + ' de garantia') else   ShowMessage('Fora da garantia');end;

Espero ter ajudado

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif