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";'
|
volvo |
Сообщение
#2
|
Гость |
Ты что, час в дате искать собрался?
Вообще-то во времени надо бы: writeln(HourOf(Now)); |
klem4 |
Сообщение
#3
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата function Today: TDateTime; Цитата function HourOf( const AValue: TDateTime ):Word; Я вот из таких соображений исходил ... -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
Сообщение
#4
|
Гость |
А вот из таких не пробовал исходить:
Цитата(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. Так что это ТОЛЬКО дата, а никак не время... |
klem4 |
Сообщение
#5
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
С слона то я и не приметил)) СПасибо
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
klem4 |
Сообщение
#6
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Подскажите процедуру или какую глобальную переменную надо изменить, чтобы время выводилось в соответствии LongTimeFormat
Сейчас при выводе времени на экран делю делаю так: FormatDateTime(LongTimeFormat, Now) Уверен что можно по другому, как в Делфи например можно было менять DateSeparator и подобные вещи. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
Сообщение
#7
|
Гость |
Я не понял, а что, собственно, ты хочешь, чтобы было? Чтобы при WriteLn(Now) сразу выводилось время в длинном формате? Или что?
|
klem4 |
Сообщение
#8
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата Чтобы при WriteLn(Now) сразу выводилось время в длинном формате Writeln(TimeToStr(Now)); -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
Сообщение
#9
|
Гость |
Время печатается в формате, задаваемом ShortTimeFormat... Следовательно, меняй ShortTimeFormat на тот, который нужен... То есть, тебе надо занести в ShortTimeFormat ту маску, которая обычно соответствует длинному формату:
shorttimeformat := 'hh:mm:ss'; или еще проще: shorttimeformat := longtimeformat; // 'hh:mm:ss'; |
klem4 |
Сообщение
#10
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Да какраз то что я и пытался найти, спасибо.
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
compiler |
Сообщение
#11
|
Человек Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: 3 |
а как найти разницу между переменной датой и сегоднейшй?
мой текст Uses dateutils; заранее благодарен. Добавлено через 2 мин. P.S. или этот вопрос лучше в задачи... -------------------- Спасибо!
Удачи! |
volvo |
Сообщение
#12
|
Гость |
Цитата мой текст ЭТО - не ТВОЙ текст... Вот напиши СВОЙ, потом будет разговаривать! |
compiler |
Сообщение
#13
|
Человек Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: 3 |
ЭТО - не ТВОЙ текст... как щаблон я взял текст нахождения разници в днях (твой) и нахождения сегоднешней даты(klem4) Добавлено через 6 мин. если б я использывал что то другое кто то б сказал было уже:mad: научись пользоваться поиском ... -------------------- Спасибо!
Удачи! |
Текстовая версия | 24.04.2024 10:06 |