MyChat Scripts: функция HoursBetween, сколько часов между датами
Узнать, сколько полных часов между двумя датами.
Синтаксис
function HoursBetween(dNow, dThen: double): integer;
Параметры и возвращаемые значения
|
Параметр |
Тип |
Значение |
|
dNow |
double |
первое значение даты и времени; |
|
dtThen |
double |
второе значение даты и времени. |
Результат функции
Число, количество полных часов между двумя датами.
Пример
var
dtFrom, dtNow: double;
begin
dtFrom := Now;
// and +8.5 hours
dtNow := IncMinute(Now, 510);
// 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('Full hours between 2 dates: ' + IntToStr(HoursBetween(dtFrom, dtNow)), '');
end.
Результат работы скрипта
[10:46:26] (Log "HoursBetween"): From date: 04.07.2016 10:46:26
[10:46:26] (Log "HoursBetween"): To date: 04.07.2016 19:16:26
[10:46:26] (Log "HoursBetween"): Full hours between 2 dates: 8