Получить значение секунд текущей минуты из переменной даты и времени.
function SecondOf(dt: double): integer;
Параметр |
Тип |
Значение |
---|---|---|
dt |
double |
дата, из которой нужно получить числовое значение секунд. |
Число типа integer, от 0 до 59.
var
iSecond: integer;
s: string;
dtNow: double;
begin
dtNow := Now;
iSecond := SecondOf(dtNow);
s := inttostr(iSecond) + ' second';
if iSecond > 1 then s := s + 's';
s := s + ' elapsed from ' + FormatDateTime('hh:nn', dtNow) + ':00';
mLogScript(s, '');
end.
[14:55:11] (Log "SecondOf"): 11 seconds elapsed from 14:55:00