problema datepicker

[anubis]

A ver, perdonadme que pregunte sobre el datepicker pero tengo un problema que nose porque pasa.

begin
fechahoy:=now;
fechentr:=fecharegistro.date;
fechsal:=fechasalida.date;
if fechentr<=fechahoy then
begin
fechentr:=fechahoy;
end;

if fechsal<=fechentr+1 then
fechsal:= fechentr+1;
label24.Caption:=datetostr(fechentr);
label30.caption:=datetostr(fechsal);
diasestancia.caption:=inttostr(daysbetween(fechsal,fechentr));
fecharegistro.date:=fechentr;
fechasalida.date:=fechsal;


diasestancia no me hace bien el resultado a pesar de que he puesto los label para ver si efectivamente las fechas son las correctas y si lo son, lo que no entiendo, si he puesto solo las fechas porque no me lo calcula bien.

alguna idea?

gracias

[Caral]

Hola anubis
Lo que no entiendo muy bien es que es lo que quieres calcular.
Si es cuantos dias han pasado entre fecha y fecha, asi:

procedure TForm1.Button1Click(Sender: TObject);
Var
FechHora1 :TDateTime;
FechHora2 :TDateTime;
Dias :Integer;
begin
FechHora1:= DateTimePicker1.DateTime;
FechHora2:= DateTimePicker2.DateTime;
Dias := Trunc (FechHora2) - Trunc (FechHora1);
Edit1.Text:= IntToStr(Dias);
end;
Sacado de codigo de Al Gonzalez
De otra manera no se lo que quieres hacer.?
Saludos

[anubis]

Si gracias era calcular la diferencia entre dias, pero pense que podia funcionar el between, pero tu metodo funciona mejor.