Текущее время

← →
Manulo © (2002-06-17 17:48) [0]

Кто знает, как получить текущее системное время и дату, но в формате TDateTime... Очень нада...

← →
VDen © (2002-06-17 17:53) [1]

Модуль DateUtils, функция Now.

← →
Nic-2 (2002-08-12 19:32) [2]

Время
StrToTime(TimeToStr(Time)): TDateTime;
{}
Дата
StrToDate(DateToStr(Date)): TDateTime;

← →
Nic-2 (2002-08-12 19:37) [3]

А можно проще!!!!
Date: TDateTime;
Time: TDateTime;
.......

← →
Anatoly Podgoretsky © (2002-08-12 19:39) [4]

Только тебе для этих вариантов придется делать поправку до UTC
Может лучше подойти к этому с другого конца, получить системное время и преобразовать его в TDateTime

← →
n\a (2002-08-13 00:43) [5]

function TimeNow:String;
function ShortDate:string;
var s : array[0..255]of char;
begin
GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, nil, nil, s, SizeOf(s));
Result:=s;
end;

function LongDate:string;
var s : array[0..255]of char;
begin
GetDateFormat(LOCALE_USER_DEFAULT, DATE_LONGDATE, nil, nil, s, SizeOf(s));
Result:=s;
end;
var
SysTime : _SystemTime;
smin: string;
begin
GetLocalTime(SysTime);
smin:=IntToStr(SysTime.wMinute);
if length(smin)=1 then Insert("0",smin,1);
Result:=("Время:"+IntToStr(SysTime.wHour)+":"+smin+{":"+IntToStr(SysTime.wSecond)+}" Дата:"+ShortDate);
end;

Или я сего не понимаю, или у меня дельфа не правлильная но текущее время всю жизнь получал командой
Time
С датой не пробывал, но если следовать логике то и
Date
тоже есть.

← →
ППавел (2002-08-13 12:09) [7]

Я всегда пользовался:
Для получения времени.
label1.Caption:= FormatDateTime("hh:mm:ss", Time);
А вот насчет даты не пробовал

Текущее время Найти похожие ветки