Отримати значення секунд поточної хвилини зі змінної дати та часу.

 

Синтаксис

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