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