Contar Dias

[marcoszorrilla]

Acabo de hacer pruebas y el valor que me devuelve siempre es correcto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
d1,d2:TDate;
nDias:Integer;
begin
d1:=Date;
d2:=date+500;
nDias:=DaysBetween(D2, d1);
Edit1.Text:=DateToStr(d1);
Edit2.Text:=DateToStr(d2);
edit3.Text:=IntToStr(nDias);
end;

Description

Call DaysBetween to obtain the difference, in days, between two TDateTime values.

DaysBetween counts only whole days. Thus, DaysBetween reports the difference between Dec 31, 1999 11:59 PM and Jan 1, 2000 11:58 PM as 0 because the difference is one minute short of an entire day.

Un Saludo.