Дізнатися скільки повних секунд між двома датами.

 

Синтаксис

function SecondsBetween(dNow, dThen: double): integer;

 

Параметри та значення, що повертаються

Параметр

Тип

Значення

dNow

double

перше значення дати та часу;

dtThen

double

друге значення дати та часу;

 

Результат функції

Число, кількість повних секунд між двома датами.

 

Приклад
var
  dtFrom, dtNow: double;
begin
  dtNow  := Now;
  dtFrom := IncSecond(dtNow, -100);
  // 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(SecondsBetween(dtFrom, dtNow)), '');
end.


Результат роботи скрипту

[18:14:15] (Log "SecondsBetween"): From date: 05.07.2016 18:12:35

[18:14:15] (Log "SecondsBetween"): To date: 05.07.2016 18:14:15

[18:14:15] (Log "SecondsBetween"): Result: 100

 

Дивитися ще
IncSecond
IntToStr
mLogScript

Now