Получить значение секунд текущей минуты из переменной даты и времени.

 

Синтаксис

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

 

Ещё посмотреть

IntToStr

FormatDateTime

mLogScript

Now