Сколько лет между двумя указанными датами.

 

Синтаксис

function YearsBetween(dNow, dThen: double): integer;

 

Параметры и возвращаемые значения

Параметр

Тип

Значение

dNow

double

начальные дата и время;

dThen

double

дата и время, с которой мы сравниваем дату dtNow.

 

Результат функции

Целое число, количество полных лет между датами. Если первая дата меньше второй, то число будет положительным, если наоборот — отрицательным.

 

Пример

var
  dtFrom, dtNow: double;
begin
  // MyChat version 3.0 release date
  dtFrom := EncodeDateTime(2007, 7, 2, 13, 0, 0, 0);
  // and now
  dtNow  := Now;
  // print this dates
  mLogScript('From date: ' + FormatDateTime('dd.mm.yyyy hh:nn:ss', dtFrom), '');
  mLogScript('To date: ' + FormatDateTime('dd.mm.yyyy hh:nn:ss', dtNow), '');
  
  mLogScript('Years from MyChat 3.0 birthday: ' + IntToStr(YearsBetween(dtFrom, dtNow)), '');
end.

Результат работы скрипта

[10:34:32] (Log "YearsBetween"): From date: 02.07.2007 13:00:00

[10:34:32] (Log "YearsBetween"): To date: 04.07.2016 10:34:32

[10:34:32] (Log "YearsBetween"): Years from MyChat 3.0 birthday: 9

 

Ещё посмотреть

IntToStr
mLogScript

Now