Разница между двумя datetimepicker

[Droid]

У меня есть 2 компонента DateTimePicker, как мне получить число целых дней между двумя разными датами

[W0LF]

Функция DaysBetween

uses DateUtils;
var
  fromdate, toDate : TDateTime;

begin
  // Установка наших переменных дат
  fromDate := EncodeDateTime(2000, 02, 26, 10, 0, 0, 0);
  toDate   := EncodeDateTime(2000, 02, 29,  9, 0, 0, 0);

  // Отображение этих дат и дней между ними
  ShowMessage('С даты = '+DateTimeToStr(fromDate));
  ShowMessage('До даты = '+DateTimeToStr(toDate));
  ShowMessage('Целых дней = '+
              IntToStr(DaysBetween(toDate, fromDate))+' дней');
end;

Результат будет:
С даты = 26/02/2000 10:00:00
До даты = 29/02/2000 09:00:00
Целых дней = 2 дней

Взято с delphibasic.ru

[Droid]

Вот код но чет я не понимаю как сделать

procedure TFD_SL.BitBtn1Click(Sender: TObject);
function Del(Str: String): String;
  begin
     while Pos(' ', Str) > 0 do
        Delete(Str, Pos(' ', Str), 1);
     Result := Str;
  end;
var
idml:integer;
begin
if (Del(DBLCB1.Text)=('ЦПТП'))or (Del(DBLCB1.Text)=('цптп')) or (Del(DBLCB1.Text)=('ЦПЗ')) or (Del(DBLCB1.Text)=('цпз'))or (Del(DBLCB1.Text)=('ПТЦ'))or (Del(DBLCB1.Text)=('птц'))then
  begin
    slp:=0;
    fd_sl.Label4.Visible:=false;
    fd_sl.ListBox1.Visible:=false;
  end
  else
if (Del(DBLCB1.Text)<>('ЦПТП'))or (Del(DBLCB1.Text)<>('цптп')) or (Del(DBLCB1.Text)<>('ЦПЗ')) or (Del(DBLCB1.Text)<>('цпз'))or (Del(DBLCB1.Text)<>('ПТЦ'))or (Del(DBLCB1.Text)<>('птц'))then
  begin
  fd_sl.Label4.Visible:=true;
  fd_sl.ListBox1.Visible:=true;
  end;
    idml:=DBLCB1.KeyValue;
    DM.ADOQ_SL.Close;
    DM.ADOQ_SL.SQL.Clear;
    DM.ADOQ_SL.SQL.Text:='INSERT INTO stacionarnoe_lechenie (nachalo_dati_lecheniya,konec_dati_lecheniya,id_pacienta,id_mesta_lecheniya,stacionarnoe_lechenie,dop_info) VALUES (:ndl,:kdl,:idp,:idml,:slp,:di)';
    DM.ADOQ_SL.Parameters.ParamByName('ndl').Value:= FormatDateTime('yyyy-mm-dd', datetimepicker1.Date);
    DM.ADOQ_SL.Parameters.ParamByName('kdl').Value:= FormatDateTime('yyyy-mm-dd', datetimepicker2.Date); // 2 даты между кот. надо найти разницу
    DM.ADOQ_SL.Parameters.ParamByName('idp').Value:=DM.ADOQ_PACid_pacienta.Value;
    Dm.ADOQ_SL.Parameters.ParamByName('slp').Value:=slp;
    DM.ADOQ_SL.Parameters.ParamByName('idml').Value:=idml;
    DM.ADOQ_SL.Parameters.ParamByName('di').Value:=fd_sl.Memo1.Text;
    DM.ADOQ_SL.ExecSQL;

    dm.ADOQ_SL.Close;
    dm.ADOQ_SL.SQL.Clear;
    DM.ADOQ_SL.SQL.Add('SELECT * FROM stacionarnoe_lechenie sl LEFT OUTER JOIN pacient pt ON sl.id_pacienta=pt.id_pacienta INNER JOIN mesto_lecheniya_cptp mlc ON mlc.id_mesta_lecheniya=sl.id_mesta_lecheniya WHERE sl.id_pacienta=:idp');
    DM.ADOQ_SL.Parameters.ParamByName('idp').Value:=dm.ADOQ_PACid_pacienta.Value;
    DM.ADOQ_SL.Open;
end;

[Serge_Bliznykov]

не совсем понял, при чём здесь запрос...

разница между двумя датами находится очень просто:

trunc(DateTimePicker1.Date) - trunc(DateTimePicker2.Date)

основание, цитирую из хелпа на TDateTime

type TDateTime = type Double;

Description

Most VCL objects represent date and time values using the TDateTime type. The integral part of a TDateTime value is the number of days that have passed since 12/30/1899. The fractional part of a TDateTime value is fraction of a 24 hour day that has elapsed.