var
  fromdate, toDate : TDateTime;

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

  // Отображение этих дат и дней между ними
  ShowMessage('С даты = '+DateTimeToStr(fromDate));
  ShowMessage('До даты = '+DateTimeToStr(toDate));
  ShowMessage('Дробная разность дней = '+
              FloatToStr(DaySpan(toDate, fromDate))+' дней');
end;