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;
Delphi 1 Delphi 2 Delphi 3 Delphi 4
nicht getestet Version nicht betroffen getestet

siehe auch:

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


Delphi FAQ