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

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

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

Вообще-то во времени надо бы:

  writeln(HourOf(Now));

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

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

?

Так что это ТОЛЬКО дата, а никак не время...

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

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

Сейчас при выводе времени на экран делю делаю так:

FormatDateTime(LongTimeFormat, Now)

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

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

Writeln(TimeToStr(Now));

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

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

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

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

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

а как найти разницу между переменной датой и сегоднейшй?
мой текст

Uses dateutils;
begin
	writeln('diff = ', daysbetween(strtodate('12/02/2007'), strtodate(DateOf(Today))));	
end.

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

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

ЭТО - не ТВОЙ текст... Вот напиши СВОЙ, потом будет разговаривать!

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

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