Узнать, сколько полных месяцев между двумя датами.

 

Синтаксис

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

 

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

Параметр

Тип

Значение

dNow

double

первое значение даты и времени;

dtThen

double

второе значение даты и времени.

 

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

Число, количество месяцев между двумя датами. Порядок дат не имеет значения, ответ всегда будет >=0. Приблизительно считается, что в одном месяце 30.4375 дней. Дробная часть не учитывается.

 

Пример

var
  dtFrom, dtNow: double;
begin
  dtFrom := EncodeDateTime(2000, 1, 1, 1, 0, 0, 0);
  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('Result: ' + IntToStr(MonthsBetween(dtFrom, dtNow)), '');
end.

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

[18:05:11] (Log "MonthsBetween"): From date: 01.01.2000 01:00:00

[18:05:11] (Log "MonthsBetween"): To date: 05.07.2016 18:05:11

[18:05:11] (Log "MonthsBetween"): Result: 198

 

Ещё посмотреть
EncodeDate
IntToStr
mLogScript

Now