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

> 

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Функции даты и времени
сообщение
Сообщение #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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






blink.gif Ты что, час в дате искать собрался? smile.gif

Вообще-то во времени надо бы:
  writeln(HourOf(Now));

 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


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

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

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


blink.gif

Цитата
function Today: TDateTime;


Цитата
function HourOf(

const AValue: TDateTime

):Word;


Я вот из таких соображений исходил ...



--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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.
?

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


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

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

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


С слона то я и не приметил)) СПасибо


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


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

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

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


Подскажите процедуру или какую глобальную переменную надо изменить, чтобы время выводилось в соответствии LongTimeFormat

Сейчас при выводе времени на экран делю делаю так:
FormatDateTime(LongTimeFormat, Now)

Уверен что можно по другому, как в Делфи например можно было менять DateSeparator и подобные вещи.


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


Гость






Я не понял, а что, собственно, ты хочешь, чтобы было? Чтобы при WriteLn(Now) сразу выводилось время в длинном формате? Или что?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


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

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

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


Цитата
Чтобы при WriteLn(Now) сразу выводилось время в длинном формате


yes2.gif

Writeln(TimeToStr(Now));


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


Гость






Время печатается в формате, задаваемом ShortTimeFormat... Следовательно, меняй ShortTimeFormat на тот, который нужен... То есть, тебе надо занести в ShortTimeFormat ту маску, которая обычно соответствует длинному формату:

  shorttimeformat := 'hh:mm:ss';
writeln(timetostr(now));


или еще проще:

  shorttimeformat := longtimeformat; // 'hh:mm:ss';
writeln(timetostr(now));

 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


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

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

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


Да какраз то что я и пытался найти, спасибо.


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


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

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


а как найти разницу между переменной датой и сегоднейшй?
мой текст
Uses dateutils;
begin
writeln('diff = ', daysbetween(strtodate('12/02/2007'), strtodate(DateOf(Today))));
end.


заранее благодарен.

Добавлено через 2 мин.
P.S. или этот вопрос лучше в задачи...


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Гость






Цитата
мой текст
mad.gif ЭТО - не ТВОЙ текст... Вот напиши СВОЙ, потом будет разговаривать!
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

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


Цитата(volvo @ 23.02.2007 14:29) *

mad.gif ЭТО - не ТВОЙ текст...

как щаблон я взял текст нахождения разници в днях (твой) и нахождения сегоднешней даты(klem4)

Добавлено через 6 мин.
если б я использывал что то другое кто то б сказал было уже:mad: научись пользоваться поиском ...


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 2.10.2020 1:02
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name