[lmikle]

еще проще - есть функция decodeDate:

Код:

var
  Day, Month, Year : WORD;
begin
  DecodeDate(Date,Year,Month,Day);
end;