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)