Calculo entre datas

clica com o botao direito do mouse neste atalho e salva esta UNIT com todas as funções de calculos de data e hora

http://www.carnette.kit.net/D5/esbdates.zip

Eu tenho um projeto especifico para isso, se quiser

foi feito durante as aulas de (Logica de programaçao)

100¬ confiavel

quem quiser mande mail para

jabanildo@f1net.com.br

coloque como assunto (DIAS)

t+

Trabalhar com data em delphi é muito simples.
O tipo date não é nada mais que um double onde a parte inteira é a qunatidade de dias a partir de uma data fixa e a parte fracionária e o valor da hora naquele dia. Então como não entrste em detalhe vou lhe dar um exemplo.

No Edit1 está a primeira data.
No Edit2 está a segunda data.
O Edit3 receberá a quantidade de dias entre elas.

date - date = date ou
double - double = double

então

Trunc(date - date) = integer ou
Trunc(date) - Trunc(date) = integer // despresando a hora

ou seja

Edit3.Text := IntToStr(Trunc(StrToDateTime(Edit2.Text)) -
Trunc(StrToDateTime(Edit1.Text)));