SecondOf
Модуль: DateUtils
function SecondOf(const AValue: TDateTime): Word;
Функция возвращает второе число, сохраненное как дата и время TDateTime . Функция возвращает число из диапазона 0-59:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
program Foo; {$APPTYPE CONSOLE} uses SysUtils, DateUtils; begin Writeln('Дата: ', DateTimeToStr(Now)); Writeln('-----'); Writeln('Секунда: ', SecondOf(Now)); Readln; end. |