operação com datas

Pega esta UNITE http://www.carnette.kit.net/D5/esbdates.zip e coloca em teus projetos...Nela tem todas as funções de calculos e conversões de datas e horas..O codigo fonte é aberto...para voce poder ver como se faz


Boa programação

Se as variáveis/campos forem do tipo DateTime:
DataMaior-DataMenor=DiasCorridosEntreAsDatas

Se forem do tipo texto, primeiro converta para data:
StrToDate(DataMaior)-StrToDate(DataMenor)=DiasCorridos

eu tenho um componente pra isso.... é só você me passar seu email..

Var
DataInicio, datafinal: Tdate;
Dif:real;
Begin
DataInicio:=StrToDate(Edit1.Text);
DataFinal:=StrToDate(Edit2.text);
Dif := DataFinal-DataInicio;
Dif:=Trunc(dif); (transforma para inteiro)
Edit3.Text:=DateToStr(Dif);
end;