MyChat Scripts: функція YearsBetween, скільки років між датами
Скільки років між двома зазначеними датами.
Синтаксис
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