Функция YearsBetween в Delphi

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

Описание:

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

Синтаксис:

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

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

uses DateUtils;
...
Var
  Res: Integer;
begin
  Res:= YearsBetween(Now, Yesterday); // возвращает кол-во лет между сегодняшним и вчерашним днем
  ShowMessage('Между вчера и сегодня - ' + IntToStr(Res) + ' лет');
end;

Результат:

Функция YearsBetween
YearsBetween в Delphi

Рейтинг автора
Автор статьи
Юрий
Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.
Написано статей
439
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (12 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий