HoursPerDay
Модуль: SysUtils
const
HoursPerDay = 24;
Константа хранит значение, указывающее количество часов в день.
Константа, как и другие, связанные с датой и временем, объявлена в модуле SysUtils :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
program DateTimeConst; {$APPTYPE CONSOLE} uses SysUtils; begin Writeln('Знач: ', HoursPerDay); Writeln('Знач: ', MinsPerHour); Writeln('Знач: ', SecsPerMin); Writeln('Знач: ', MSecsPerSec ); Writeln('Знач: ', MinsPerDay); Writeln('Знач: ', SecsPerDay); Writeln('Знач: ', MSecsPerDay); Readln; end. |