Как получить только время из переменной типа TDatetime?

← →
Status (2004-03-12 10:40) [0]

Есть переменная типа TDatetime, в которой хранятся дата и время, как мне из неё получить только время?

← →
Ega23 © (2004-03-12 10:53) [1]

var
dt:TdateTime;

dt:=dt-Trunc(dt); // Теперь в dt только время

← →
Курдль © (2004-03-12 11:23) [2]

TimeOf

Strips the date portion from a TDateTime value.

Unit

DateUtils

Category

date/time routines

function TimeOf(const AValue: TDateTime): TDateTime;

Description

Call TimeOf to convert a TDateTime value to a TDateTime value that includes only the time information (sets the date portion to 0, which means 12/30/1899).

← →
Anatoly Podgoretsky © (2004-03-12 11:30) [3]

Ты Ega23 © (12.03.04 10:53) [1] не слушай, он тебе подсказал как уничтожить время, а для уничтожения даты надо использовать Frac

← →
Ega23 © (2004-03-12 11:39) [4]

Ты Ega23 © (12.03.04 10:53) [1] не слушай, он тебе подсказал как уничтожить время, а для уничтожения даты надо использовать Frac

Наоборот :o)

← →
Guest © (2004-03-12 11:55) [5]

Не знаю понадобиться или нет, но может кому-нибудь пригодиться...
procedure GetCurTime;
var
DateTime:TSystemTime;
Time : String;
begin
GetLocalTime(DateTime);
Time:= inttostr(DateTime.wYear)+"."
+inttostr(DateTime.wMonth)+"."
+inttostr(DateTime.wHour)+"."
+inttostr(DateTime.wMinute)+"."
+inttostr(DateTime.wSecond)+"."
+inttostr(DateTime.wMilliseconds);
end;

← →
ЫЗШКШЕ (2004-03-12 12:09) [6]

StrToDate(DateToStr(Now))

← →
ЫЗШКШЕ (2004-03-12 12:15) [7]

тьфу ты время же

Как получить только время из переменной типа TDatetime? Найти похожие ветки