Возврат текущей даты FPC (на XP)

[standel]

Помогите как возвратить текущую дату. Нужен только текущий год.
GetDate не работает. Может нужно какой модуль подключить в uses?
Прошу прощения за банальный вопрос. В FreePascalCompiler только первые шаги.
До этого только Delphi юзал.

[Nik]

Как-то так (в Lazarus точно работает, вроде и в "голом" FPC должно):

Код: Выделить всё

var
x: TFormatSettings;
d: string;
begin
x.LongTimeFormat:='YY';
x.TimeSeparator:=':';
d:=DateToStr(Date);

[standel]

К сожалению код не работает. FPC не понимает TFormatSettings

Добавлено спустя 18 минут 53 секунды:
получилось вот так:

Код: Выделить всё

uses dos
.
var a, b, c, d: word;
.
begin
GetDate(a,b,c,d)
// перeменная [b]a[/b] и есть текущий год.

[sign]

Помогите как возвратить текущую дату. Нужен только текущий год.
GetDate не работает. Может нужно какой модуль подключить в uses?
Прошу прощения за банальный вопрос. В FreePascalCompiler только первые шаги.
До этого только Delphi юзал.

Код: Выделить всё

uses DateUtils;
...
var Y: Integer;
    D: TDate;
...
  Y := YearOf(Now);  // Now - текущая системная дата и время
...
  Y := YearOf(D);  // D - произвольная дата