| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Текущее время [D6, Win2k]

Manulo ©   (2002-06-17 17:48:00) 

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

---

ППавел   (2002-08-13 12:09:00) [1]

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

---

Viktor Kushnir   (2002-08-13 08:39:00) [2]

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

---

n\a   (2002-08-13 00:43:00) [3]

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;

---

Anatoly Podgoretsky   (2002-08-12 19:39:00) [4]

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

---

Nic-2   (2002-08-12 19:37:00) [5]

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

---

Nic-2   (2002-08-12 19:32:00) [6]

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

---

VDen   (2002-06-17 17:53:00) [7]

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

---

Наверх