Скачать: CL | DM;

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

← →
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;

---

← →
Viktor Kushnir ©   (2002-08-13 08:39) [6]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c