Somar dias de datas

Delphi

22/10/2003

Preciso somar a quantidade de dias que tem num intervalo, como por exemplo:
tenho 22/10/2003;
Lanço 02/11/2003;
Me retorna 12 dias.

Ou seja, do dia 22/10/2003 até o dia 02/11/2003 tem 12 dias.

Aguardo ajuda e já sou muito grato.

DELPHI 5
PARADOX


Osmar Cardoso

Osmar Cardoso

Curtidas 0

Respostas

Fred

Fred

22/10/2003

dias := trunc(datamaior - datamenor);


GOSTEI 0
Osmar Cardoso

Osmar Cardoso

22/10/2003

dias := trunc(datamaior - datamenor);


Fred, como devo executar essa função? É através de variáveis?
:(
Por favor, me dê mais detalhes pois sou principiante e ainda não consegui!
Considere que tenho usado o componente Edit ou MaskEdit.


GOSTEI 0
Fred

Fred

22/10/2003

var datamenor, datamaior : tDate;
dias : integer;
begin

datamenor := strtodate(edit1.text);
datamaior := strtodate(edit2.text);
dias := trunc(datamaior - datamenor);
showmessage(intdostr(dias));
end; 8)


GOSTEI 0
POSTAR