MinsPerHour
Модуль: SysUtils
const
MinsPerHour = 60;
Константа хранит значение, которое указывает количество минут в час.
Константа, как и другие, связанные с датой и временем, объявлена в модуле 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. |