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

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

← →
Jupiter ©   (2005-07-26 09:46) [0]

Подскажите пожалуйста как можно из винды вытащить текущюю дату.
Заранее благодарен.

---

← →
Ботвин Дмитрий   (2005-07-26 09:51) [1]

DateToStr(Now) - ?

---

← →
kami ©   (2005-07-26 09:56) [2]

например, посмотреть исходники паскалевской Date:

var
 SystemTime: TSystemTime;
begin
 GetLocalTime(SystemTime);
 with SystemTime do Result := EncodeDate(wYear, wMonth, wDay);
end;

---

← →
Eraser ©   (2005-07-26 10:30) [3]

Jupiter ©   (26.07.05 09:46)

Date + F1
Now + F1

---

← →
SergProger   (2005-07-28 03:30) [4]

Пример:

var
 ST: TSystemDate;
 S: String;
begin
 GetSystemTime(ST);
 S:=DateTimeToStr(SystemTimeToDateTime(ST));
 Form1.Caption:=S;
end;

Заголовок будет иметь вид, например, 15.05.2005 13:08.

---

← →
Antonn ©   (2005-07-28 06:44) [5]

SergProger   (28.07.05 3:30) [4]
а чем плох такой метод?
form1.caption:=formatdatetime("dd,mm,yyyy hh:nn:ss",now);

---

← →
Кот   (2005-07-28 07:11) [6]

можно так
var dat:string;
begin
dat:=DateToStr(Date)+" "+TimeToStr(Time);
end;

---

← →
DVM ©   (2005-07-28 10:49) [7]

Если чиста на АПИ

function GetShortDate: string;  // 01.01.2003
var
 st: TSystemTime;
 Date, FormatString: PChar;
 DateSize, FormatStringSize: integer;
begin
 Result := "";
 FormatStringSize := GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, nil, 0);
 GetMem(FormatString, FormatStringSize * SizeOf(Char));
 GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, FormatString, FormatStringSize);
 GetLocalTime(st);
 DateSize := GetDateFormat(LOCALE_USER_DEFAULT, 0, nil, FormatString, nil, 0);
 GetMem(Date, DateSize * SizeOf(Char));
 GetDateFormat(LOCALE_USER_DEFAULT, 0, @st, FormatString, Date, DateSize * SizeOf(Char));
 result := Date;
 FreeMem(Date);
 FreeMem(FormatString);
end;

---

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

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



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