Вопрос по TDataTime

[kta87]

Преобразуются DataTime в число получаем его в формате "часы:минуты:секунды". Как брать из этого только 'часы' ?

[denisbrain]

Сообщение от kta87

Преобразуются DataTime в число получаем его в формате "часы:минуты:секунды". Как брать из этого только 'часы' ?

procedure SysUtils.DecodeTime(const DateTime: TDateTime; var Hour, Min, Sec, MSec: Word);

[kta87]

мда, это я и в учебнике посмотрел... а можно пример с применением!

[denisbrain]

Сообщение от kta87

мда, это я и в учебнике посмотрел... а можно пример с применением!

 

 mytime=record
      Hour, Min, Sec, MSec:Word;
   end;

implementation


Function GetMyTime(value:TDateTime):mytime;
begin
   DecodeTime(value,result.Hour, result.Min, result.Sec, result.MSec);
end;



// пример 
GetMyTime(now).Hour


begin
 Showmessage('Hour '+inttostr(GetMyTime(now).Hour));
 Showmessage('min '+inttostr(GetMyTime(now).Min));
 Showmessage('sec '+inttostr(GetMyTime(now).Sec));
end;

[chertovich]

Str := FormatDateTime('mm:ss', GetTime);

[Serge_Bliznykov]

ну, тогда и я позволю свой вариант предложить (он, конечно, очень близок к варианту denisbrain - но мой менее универсален и, поэтому, много проще)

function ExtractHour(ADate: TDateTime): Word;
var
  Min, Sec, MSec : Word;
begin
  DecodeTime( ADate, Result, Min, Sec, MSec);
end;

[3D Hunter]

uses DateUtils;
...
var MyHours:Word;
begin
  MyHours:=HourOf(Now);
end;

[Uno]

Функции
DateToStr()
TimeToStr()

function ShowDT(Avalue: TDateTime);
begin
ShowMessage(DateToStr(Avalue));
ShowMessage(TimeToStr(Avalue));
end;

Модуль DateUtils