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
Ещё посмотреть