problema datepicker

[anubis]

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

Código Delphi [-]
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:

Código Delphi [-]
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.