uses DateUtils {, SysUtils };
begin
writeln(HourOf(Today)); { HourOf(Date) }
end.
Функции даты и времени |
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Функции даты и времени |
klem4 |
Сообщение
#1
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Пытаюсь выцепить например текущий час, почему-то постоянно выдает 0
uses DateUtils {, SysUtils }; -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата Чтобы при WriteLn(Now) сразу выводилось время в длинном формате Writeln(TimeToStr(Now)); -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Текстовая версия | 6.05.2024 1:06 |