Обновлено: 01 декабря, 2018

Функция SecondOfTheYear в Delphi

Используемый модуль: DateUtils

Описание:

Возвращает число полных секунд, отсчитанное от начала года, к которому относится указанное значение AValue типа TDateTime, до этого указанного значения.

Синтаксис:

function SecondOfTheYear(const AValue: TDateTime): LongWord;

Пример использования:

uses DateUtils;
...
Var
  Res: Integer;
begin
  Res:= SecondOfTheYear(Now); // сколько секунд прошло с начала года до текущей даты
  ShowMessage('С начала года прошло ' + IntToStr(Res) + ' секунд');
end;

Результат:

SecondOfTheYear в Delphi