MyChat Scripts: функция MonthsBetween, сколько месяцев между датами
Узнать, сколько полных месяцев между двумя датами.
Синтаксис
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