Hallo,
folgendermaßen:
Delphi-Quellcode:
var s:String;
...
...
s:=DateToStr(now);
s:=Copy(s, Length(s)-3, 4);
...
Wenn Du das Datum in die einzelnen Bestandteile zerlegen willst, würde ich Dir eine anderen Vorgegehensweise nahelegen:
Delphi-Quellcode:
var t, m, j:Word;
...
DecodeDate(Now, j, m, t);
ShowMessage('Jahr ist: '+IntToStr(j));
...
[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]