Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

Системное время   Найти похожие ветки 

← →
DSP   (2004-10-12 22:13) [0]

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

---

← →
begin...end ©   (2004-10-12 22:16) [1]

Now

---

← →
Kolan ©   (2004-10-12 23:41) [2]

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

---

← →
DVM ©   (2004-10-12 23:44) [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;

---

← →
Sheng ©   (2004-10-13 08:36) [4]

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

---

← →
Fedia ©   (2004-10-13 08:43) [5]


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


---

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

Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.039 c