TFormatSettings Unterschied ShortDateFormat und LongDateFormat

[Uwe Raabe]

Es ist ja auch etwas verwirrend wenn DateTimeToStr für das Datum das ShortDateFormat aber für die Zeit das LongTimeFormat nimmt.

Zitat von Codehunter:

Delphi-Quellcode:

var
  FS: TFormatSettings;
  S: string;
begin
  FS.ShortDateFormat := 'mm/dd/yyyy';
  FS.LongDateFormat := FS.ShortDateFormat;
  FS.ShortTimeFormat := 'hh:nn:ss';
  FS.LongTimeFormat := FS.ShortTimeFormat;
  FS.DateSeparator := '-';
  FS.TimeSeparator := '-';
  S := DateTimeToStr(Now, FS).Replace(' ', '-');
end;

Im Ergebnis kommt dann so etwas heraus:

Code:

12-31-2021-12-34-56

Hast du mal probiert, ob das nicht auch so funktioniert?

Delphi-Quellcode:

var
  FS: TFormatSettings;
  S: string;
begin
  FS := TFormatSettings.Invariant;
  FS.DateSeparator := '-';
  FS.TimeSeparator := '-';
  S := DateTimeToStr(Now, FS);
end;

[Codehunter]

Zitat von Uwe Raabe:

Es ist ja auch etwas verwirrend wenn DateTimeToStr für das Datum das ShortDateFormat aber für die Zeit das LongTimeFormat nimmt.

Ja und nicht nur das. Sondern auch die Ungewissheit, in wie fern da noch Regional- und Systemeinstellungen mit rein spielen. Das kann man ja auch nur begrenzt testen.

Zitat von Uwe Raabe:

Hast du mal probiert, ob das nicht auch so funktioniert?

Delphi-Quellcode:

var
  FS: TFormatSettings;
  S: string;
begin
  FS := TFormatSettings.Invariant;
  FS.DateSeparator := '-';
  FS.TimeSeparator := '-';
  S := DateTimeToStr(Now, FS);
end;

Im vorgenannten Beispiel könnte das - mit Ausnahme des Bindestriches zwischen Datum und Uhrzeit - funktionieren. Aber ich habe zahlreiche ganz unterschiedliche Formatierungen, die nicht so eng an das englische Format angelehnt sind. Dann ginge das wieder nicht mehr.

Also wenn ich das so rekapituliere scheint es nicht völlig übertrieben zu sein, Shortxxx und Longxxx jeweils gleich zu belegen. Damit einher geht dann für mich die Frage, wie sinnhaltig die threadsichere zweite Implementierung von FormatDateTime ist, die dann ja mit fünf (!!!) evtl. unterschiedlichen Formatstrings hantiert.

[Uwe Raabe]

Die Threadsicherheit wird dadurch hergestellt, dass die FormatSettings entweder nur in einem Thread verwendet werden oder einmal eingestellt nicht mehr verändert werden. Ich frage mich aber, warum du überhaupt die vordefinierten FormatStrings nimmst, wenn du solche Spezialitäten brauchst. Dann kannst du den FormatString doch bei FormatDateTime direkt übergeben.

Delphi-Quellcode:

  S := FormatDateTime('mm-dd-yyyy hh-mm-ss', Now, TFormatSettings.Invariant);

Das TFormatSettings.Invariant ist nur zur Konsistenz da und hat eigentlich keinen Einfluss.

[Codehunter]

Zitat von Uwe Raabe:

  S := FormatDateTime('mm-dd-yyyy hh-mm-ss', Now, TFormatSettings.Invariant);

Stop stop stop! Das musst du mir jetzt mal erklären. Ich dachte immer, solche Formatstrings wären ungültig? Wegen der Date- bzw. Time-Separatoren, die dann entweder mit "/" (Date) oder ":" (Time) als Platzhalter angegeben werden müssen und dann erst vom Formatierer ersetzt werden? Deswegen mach ich ja den ganzen Aufriss mit den Formatsettings. Wie gesagt, immer im Hinterkopf, dass mir da u.U. das System und die Regionalsettings reinpfuschen könnten.

[Uwe Raabe]

Zitat von Codehunter:

Stop stop stop! Das musst du mir jetzt mal erklären. Ich dachte immer, solche Formatstrings wären ungültig? Wegen der Date- bzw. Time-Separatoren, die dann entweder mit "/" (Date) oder ":" (Time) als Platzhalter angegeben werden müssen und dann erst vom Formatierer ersetzt werden?

Wenn du "/" und ":" für Datums- bzw. Zeittrenner verwendest werden diese durch die in den FormatSettings eingestellten Werte ersetzt. Andere Zeichen werden als Literale behandelt und bleiben unverändert.

Solltest du als ein "/" für den Datumstrenner benötigen, muss der in den FormatSettings auch so gesetzt sein. Durch die Verwendung von Invariant liefert dann eine Angabe von "mm/dd/yyyy" auch ein "07/06/2021".

Zitat von Rollo62:

Yup, das wollte ich auch gerade schreiben, aber mit nn für Ninuten

Ist eigentlich auch korrekt, aber die Implementierung ist intelligent genug das "mm" im Zeitanteil als Minuten zu behandeln.

[Rollo62]

Zitat von Uwe Raabe:

Zitat von Rollo62:

Yup, das wollte ich auch gerade schreiben, aber mit nn für Ninuten

Ist eigentlich auch korrekt, aber die Implementierung ist intelligent genug das "mm" im Zeitanteil als Minuten zu behandeln.

Bist Du sicher dass es immer funktioniert, auch wenn man vom gewohnten yy.mm.dd hh:nn:ss Stil abweicht ?
Also schon dem 'mm-dd-yyyy hh-mm-ss' würde ich das richtige Erkennen nicht mehr zutrauen
Was ist mit 'mm;yy;dd;hh;mm;ss' oder noch verwurschtelter ?

Falls das doch erkannt wird, dann ist das ein erneuter Beweis für die Genialität von Delphi.

[Uwe Raabe]

Zitat von Rollo62:

Falls das doch erkannt wird, dann ist das ein erneuter Beweis für die Genialität von Delphi.

          if (Token = 'M') and (LastToken = 'H') then Token := 'N';

[Rollo62]

Zitat von Uwe Raabe:

Delphi-Quellcode:

  S := FormatDateTime('mm-dd-yyyy hh-mm-ss', Now, TFormatSettings.Invariant);

Yup, das wollte ich auch gerade schreiben, aber mit nn für Ninuten

Delphi-Quellcode:

  S := FormatDateTime('mm-dd-yyyy hh-nn-ss', Now, TFormatSettings.Invariant);