SecsPerDay Delphi - Okolokompa

SecsPerDay

Модуль: SysUtils
const
SecsPerDay = MinsPerDay * SecsPerMin;

Константа хранит количество секунд в дне. Значение создается путем умножения значений MinsPerDay и SecsPerMin .

Константа, как и другие, связанные с датой и временем, объявлена в модуле SysUtils :

program DateTimeConst;

{$APPTYPE CONSOLE}

uses

SysUtils;

begin

Writeln('Ответ программы: ', HoursPerDay);

Writeln('Ответ программы: ', MinsPerHour);

Writeln('Ответ программы: ', SecsPerMin);

Writeln('Ответ программы: ', MSecsPerSec );

Writeln('Ответ программы: ', MinsPerDay);

Writeln('Ответ программы: ', SecsPerDay);

Writeln('Ответ программы: ', MSecsPerDay);

Readln;

end.