Функции даты и времени Опции

[klem4]

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

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

[volvo]

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

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

  writeln(HourOf(Now));

[klem4]

function Today: TDateTime;

function HourOf(

const AValue: TDateTime

):Word;

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

[volvo]

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

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]

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

[klem4]

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

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

FormatDateTime(LongTimeFormat, Now)

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

[volvo]

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

[klem4]

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

Writeln(TimeToStr(Now));

[volvo]

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

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

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

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

[klem4]

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

[compiler]

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

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

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

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

[volvo]

мой текст

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

[compiler]

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

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

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