problema datepicker
 

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

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

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