Delphi 11 Alexandria ist ONLINE!

[win568]

Was heißt hier mehr als dürftig.

Ich rufe StrToDateTime mit Formatsettings Shortdateformat dd.mm.yyyy hh:nn:ss, DateSeparator ., TimeSeparator : auf,
und 20.09.2021 09:10:57 wird nicht mehr in DateTime umgewandelt.


Diese Funktion die seit Jahren funktioniert hat geht jetzt nicht mehr. Wenn man einen
Vergleich der SysUtils macht, kommt man drauf, dass hier massiv geändert wurde.

[Uwe Raabe]

Zitat von win568:

Ich rufe StrToDateTime mit Formatsettings Shortdateformat dd.mm.yyyy hh:nn:ss, DateSeparator ., TimeSeparator : auf,

Das ist aber auch kein gültiges ShortDateFormat, da es neben dem Datumsformat auch ein Zeitformat enthält.

Abgesehen davon wird bei einem Datumsformat in Short- bzw. LongDateFormat immer der Slash "/" als Trenner angegeben. Das tatsächlich verwendete Zeichen steht ja in DateSeparator.

Wenn ich also für das ShortDateFormat "dd/mm/yyyy" angebe (das Time-Format spielt hier keine Rolle, nur der TimeSeparator), funktioniert StrToDateTime wie dokumentiert.

[win568]

Laut Delphi Hilfe:

Beschreibung

Mit StrToDateTime kann ein String mit einer Datums-/Zeitangabe geparst werden. Enthält S kein gültiges Datum, wird eine EConvertError-Exception ausgelöst.

Der in S angegebene String muss das aktuell in der Systemsteuerung festgelegte Format haben. In Deutschland ist das Format normalerweise DD.MM.YYYY HH:MM:SS. Die Angaben AM und PM sowie die Sekunden sind optional. Verwenden Sie das 24-Stunden-Format (7:45 PM entspricht dann 19:45), wenn AM oder PM nicht angegeben wird.

Jahresangaben zwischen 0 und 99 werden mithilfe der globalen Variablen TwoDigitYearCenturyWindow konvertiert. Dieser Wert wird entweder in einer globalen Variablen (erste Form) oder als Feld des Parameters FormatSettings (zweite Form) gespeichert. Weitere Informationen finden Sie unter "Formatvariablen für Datums-/Zeitangaben".

Die erste Form von StrToDateTime ist nicht Thread-sicher, da die landesspezifischen Informationen der globalen Variablen verwendet werden. Der Thread-sicheren zweiten Form werden die landesspezifischen Informationen im Parameter FormatSettings übergeben. Bevor Sie diese Form von StrToDateTime aufrufen, müssen Sie die Informationen in den Parameter FormatSettings schreiben. Die landesspezifischen Standardinformationen können mit GetLocaleFormatSettings zugewiesen werden.

[win568]

Hallo Uwe

Habe es nun mit deinen Anmerkungen ausprobiert. Es funktioniert so.
Leider hat Delphi seit 1997 mit diesem Format auch funktioniert.

Wir müssen nun das Format entsprechend anpassen und dass in Millionen Codezeilen.

[himitsu]

Zitat:

Shortdateformat dd.mm.yyyy hh:nn:ss

Das war aber auch schon immer falsch und hätte so oder so geändert werden sollen, auch wenn es vielleicht mal funktioniert hat.

[Uwe Raabe]

Zitat von himitsu:

Das war aber auch schon immer falsch und hätte so oder so geändert werden sollen, auch wenn es vielleicht mal funktioniert hat.

Genau!

Die neue Implementierung kann jetzt halt auch Monatsnamen bzw. -abkürzungen erkennen. Früher waren nur Zahlen erlaubt.

Im Gegensatz zu dem recht einfachen GetDateOrder aus Delphi 7

Delphi-Quellcode:

function GetDateOrder(const DateFormat: string): TDateOrder;
var
  I: Integer;
begin
  Result := doMDY;
  I := 1;
  while I <= Length(DateFormat) do
  begin
    case Chr(Ord(DateFormat[I]) and $DF) of
      'E': Result := doYMD;
      'Y': Result := doYMD;
      'M': Result := doMDY;
      'D': Result := doDMY;
    else
      Inc(I);
      Continue;
    end;
    Exit;
  end;
  Result := doMDY;
end;

ist das aktuelle GetDateSequence deutlich komplexer und achtet eben auch auf den Slash '/' als Datumstrenner.

Delphi-Quellcode:

      case PrevChar of
      'Y', 'y': Part := dpYear;
      'M', 'm': Part := dpMonth;
      'D', 'd': Part := dpDay;
      '/':      Part := dpSep;
      'G', 'g': Part := dpEraName;
      'E', 'e': Part := dpYearCurEra;
      ' ', #0:  Part := dpNone;

[win568]

Hi

Wäre die Erweiterung:

'/', '.': Part := dpSep;

gewesen, hätte es eine Menge Arbeit erspart und abwärtskompatibel gewesen.
So müssen wir nun nicht nur unsere Sourcen anpassen, sondern auch eine Menge die
Hersteller der Fremdsourcen kontaktieren, die von Ihrem Glück noch nichts wissen.