Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Количество дней между двумя датами

Автор: Likos 28.10.2007, 09:40

Есть две даты в формате TDateTime. Необходимо подсчитать количество дней между ними с учетом количества дней в месяцах.
Помогите решить задачу, очень надо
smile

Автор: volvo877 28.10.2007, 09:49

В модуле DateUtils есть функция:

Код


function DaysBetween(const ANow, AThen: TDateTime): Integer;

Автор: Toboom 30.10.2007, 12:12

Если прочитать в хэлпе, что такое TDateTime, то сразу станет ясно, что
нужно просто вычесть из одной даты другую и взять модуль.
TDateTime это число дней от какого-то 1800 года.

Успехов!

Автор: Rennigth 30.10.2007, 14:57

Цитата(Toboom @ 30.10.2007, 12:12

)

какого-то 1800 года.

31/12/1899

Автор: X-Vlad 31.10.2007, 12:23

Код


var
  StartDate, EndDate: TDateTime;
  DayCount: Integer;
begin
  DayCount = Trunc(EndDate) - Trunc(StartDate);
end;