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

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

Системное время [D7, WinXP]

DSP ©   (2004-10-12 22:13:00) 

Подскажите пожалуйста как считать системное время (дд.мм.гггг) в Delphi.
Заранее благодарен

---

Fedia   (2004-10-13 08:43:00) [1]


var
 s: string;
s:=FormatDateTime('dd.mm.yyyy', now);


---

Sheng   (2004-10-13 08:36:00) [2]

GetLocalSystemTime - считать
SetLocalSystemTime - установить

---

DVM   (2004-10-12 23:44:00) [3]

Или на API:

function GetTime: string;
var
 st: TSystemTime;
 Time, FormatString: PChar;
 TimeSize, FormatStringSize: integer;
begin
 Result := '';
 FormatStringSize := GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_STIMEFORMAT, nil, 0);
 GetMem(FormatString, FormatStringSize * SizeOf(Char));
 GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_STIMEFORMAT, FormatString, FormatStringSize);
 GetLocalTime(st);
 TimeSize := GetTimeFormat(LOCALE_USER_DEFAULT, 0, nil, FormatString, nil, 0);
 GetMem(Time, TimeSize * SizeOf(Char));
 GetTimeFormat(LOCALE_USER_DEFAULT, 0, @st, FormatString, Time, TimeSize * SizeOf(Char));
 result := Time;
 FreeMem(Time);
 FreeMem(FormatString);
end;

---

Kolan   (2004-10-12 23:41:00) [4]

var
CurDate:string;
CurTime:string;
t, t1:TDateTime;
begin
t:=Date;
t1:=Time;

CurDate:=Datetimetostr(t);
CurTime:=Timetostr(t1);
end;В строках будет 12.10.2004 а в t и t1 числа с ними удобно работать. Посмотри Datetime routines Help

---

begin...end   (2004-10-12 22:16:00) [5]

Now

---

Наверх