IPB
ЛогинПароль:

> Функции даты и времени
klem4
сообщение 31.01.2007 19:15
Сообщение #1


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Пытаюсь выцепить например текущий час, почему-то постоянно выдает 0

uses DateUtils {, SysUtils };
begin
writeln(HourOf(Today)); { HourOf(Date) }
end.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 31.01.2007 20:02
Сообщение #2


Гость






А вот из таких не пробовал исходить:

Цитата(rtl.pdf)
4.4.125 Today
Synopsis: Return the current date
Declaration: function Today : TDateTime
Visibility: default
Description: Today is an alias for the Date (1364) function in the sysutils (1322) unit.
?

Так что это ТОЛЬКО дата, а никак не время...
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 26.07.2025 0:06
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"