SecsPerMin
Модуль: SysUtils
const
SecsPerMin = 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. |