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