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

Функция YearSpan в Delphi

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

Описание:

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

Синтаксис:

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

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

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

Результат:

YearSpan в Delphi