Wie kann ich in meinem Programm ein vierstelliges Jahresdatum anzeigen?

Innerhalb von Delphi und der BDE wird das Jahr immer 4-stellig gespeichert. Nur die Anzeige unterliegt den Windowseinstellungen. Mit dieser Prozedur von Peter Haas setzt man nur für die eigene Anwendung das Datumsformat mit vierstelliger Jahreszahl:

procedure SetFourDigitYearFormat;
var i : Integer;
begin
  ShortDateFormat := AnsiUpperCase(ShortDateFormat);
  i := Pos('YYYY',ShortDateFormat);
  if i<1 then begin
    i := Pos('YY',ShortDateFormat);
    if i>0 then begin
      Insert('YY',ShortDateFormat,i);
    end;
  end;
end;

siehe auch:

Wie kann ich aus einem Datum die Wochennummer berechnen?
Allgemeine Tips zum Arbeiten mit Datumswerten (TDateTime)

Delphi FAQ