MyChat Scripts: функція WeeksBetween, скільки тижнів між датами
Скільки тижнів між двома вказаними датами.
Синтаксис
function WeeksBetween(dNow, dThen: double): integer;
Параметри та значення, що повертаються
|
Параметр |
Тип |
Значення |
|
dNow |
double |
початкові дата та час; |
|
dThen |
double |
дата та час, з якою ми порівнюємо дату dtNow. |
Результат функції
Ціле число, кількість повних тижнів між датами.
Приклад
var
dtFrom, dtNow: double;
begin
// MyChat version 5.20 release date
dtFrom := EncodeDateTime(2016, 6, 9, 0, 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('Weeks after MyChat 5.20 release date: ' + IntToStr(WeeksBetween(dtFrom, dtNow)), '');
end.
Результат роботи скрипту
[13:30:29] (Log "WeeksBetween"): From date: 09.06.2016 00:00:00
[13:30:29] (Log "WeeksBetween"): To date: 07.07.2016 13:30:29
[13:30:29] (Log "WeeksBetween"): Weeks after MyChat 5.20 release date: 4