Узнать, сколько полных секунд между двумя датами.
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