Обновлено: 01 декабря, 2018

Функция WeekSpan в Delphi

Используемый модуль: DateUtils

Описание:

Возвращает действительное число, содержащее число недель между двумя указанными значениями ANow и AThen типа TDateTime.

Синтаксис:

function WeekSpan(const ANow, AThen: TDateTime): Double;

Пример использования:

uses DateUtils;
...
var
  Res: Double;
begin
  Res:= WeekSpan(Now, Yesterday); // возвращает кол-во недель с учетом неполных между вчерашней датой и сегодняшней
  ShowMessage('Между вчера и сегодня - ' +  FloatToStr(Res) + ' недель');
end;

Результат:

WeekSpan в Delphi