Как посчитать количество дней между датами?

Question

[Tokenchik]

Есть небольшая формочка с парой TEdit, в которые необходимо занести две даты, а затем в отдельную переменную занести количество дней между этими датами.
Я получаю данные с форм, и привожу строку к дате, затем пытаюсь использовать функцию Daysbetween, но чтото идет не так,

....
  ed1,ed2:String;
  daysbet: Integer;
  ed3,ed4: TDateTime;
  ....
  ed1:= Edit1.text;
  ed2:= Edit2.text;
  ed3:= StrToDate(ed1);
  ed4:= StrToDate(ed2);
  daysbet:=DaysBetween(ed3,ed4);

UPD: ошибка найдена, не подключен модуль DateUtils в uses.

Comments

[Anton]

что именно идет не так? Опишите ошибку или почему вы считаете, что алгоритм работает некорректно.

[Tokenchik]

Anton: ошибка - моя невнимательность :) не подключил DateUtils для работы с датами в uses ) Соответственно пытался вызвать функции из неподключенных библиотек )

Answer 1

[Александр]

Можно обойтись и без DaysBetween. Сами по себе TDateTime - это дробное число, где целая часть - это дни, а дробная - это время. Т.е. обычное integer(day1 - day2) вернет разницу в днях.

Answer 2

[Tokenchik]

ошибка найдена, не подключен модуль DateUtils в uses.