[Gravitas]

Сабж. Time\Date не подходят из за большой процедуры DateTimeToString (модуль SysUtils в программе не используется и не будет использоваться)

[AND_REY]

Код:

Var
 St: SYSTEMTIME;
 year: WORD;
begin
 GetLocalTime(St);
 Year:= St.wYear;
 //и. т. д
end;

[M.A.D.M.A.N.]

По модулю Windows терпения не хватило поискать, вот, подсмотрено в нотпэде:

Код:

.idata:0100103C ; int __stdcall GetTimeFormatW(LCID Locale, DWORD dwFlags, const SYSTEMTIME *lpTime, LPCWSTR lpFormat, LPWSTR lpTimeStr, int cchTime)
.idata:0100103C                 extrn GetTimeFormatW:dword ; CODE XREF: sub_100900D+93p
.idata:0100103C                                         ; sub_100978A+91p
.idata:0100103C                                         ; DATA XREF: ...
.idata:01001040 ; int __stdcall GetDateFormatW(LCID Locale, DWORD dwFlags, const SYSTEMTIME *lpDate, LPCWSTR lpFormat, LPWSTR lpDateStr, int cchDate)
.idata:01001040                 extrn GetDateFormatW:dword ; CODE XREF: sub_100900D+7Fp
.idata:01001040                                         ; sub_100978A+77p
.idata:01001040                                         ; DATA XREF: ...
.idata:01001044 ; void __stdcall GetLocalTime(LPSYSTEMTIME lpSystemTime)
.idata:01001044                 extrn GetLocalTime:dword ; CODE XREF: sub_100900D+65p
.idata:01001044                                         ; sub_100978A+48p
.idata:01001044                                         ; DATA XREF: ...