StrToDateDef will nicht

[Codehunter]

Hallo!

Delphi-Quellcode:

var
  LFS: TFormatSettings;
  LDate: TDate;
begin
  LFS.LongDateFormat := 'ddmmyy';
  LFS.ShortDateFormat := 'ddmmyy';
  LDate := StrToDateDef('220516', 0, LFS); // <-- Ergibt "01.01.1900" bzw. = 0
end;

Warum das denn? Sollte eigentlich der 22.05.2016 rauskommen.

Ich setze gewohnheitsmäßig LongDateFormat und ShortDateFormat gleich, weil ich die gerne mal verwechsel und so nix schief gehen kann. Ist aber bisher immer gegangen. Nur bei diesem schrägen Datumsformat kommt er nicht klar.

Grüße
Cody

[DieDolly]

Muss man nicht auch das Trennzeichen setzen, da es sonst standardmäßig das des Systems ist?

[p80286]

Wie wäre es mit 'DDMMYY', soll schon geholfen haben

Gruß
K-H

[Codehunter]

Zitat von DieDolly:

Muss man nicht auch das Trennzeichen setzen, da es sonst standardmäßig das des Systems ist?

Nur, wenn man TFormatSettings.Create zum Initialisieren aufruft, was ich ja nicht mache. Aber wie ich inzwischen herausgefunden habe, pocht DateTimeToStr auf einen DateSeparator im Formatstring. Muss ich leider wieder klassisch den String zerpflücken und mit EncodeDateTime zusammenbauen. Unpraktischerweise hab ich hier doch sogar noch das Millenium-Problem weil Daten vor dem 1.1.2000 vorkommen können

[hoika]

Hallo,

Zitat:

Muss ich leider wieder klassisch den String zerpflücken

Hm, warum packst du die 2 Datumspunkte nicht einfach vor dem StrToDateDef rein?

[Uwe Raabe]

Zitat von hoika:

Hm, warum packst du die 2 Datumspunkte nicht einfach vor dem StrToDateDef rein?

Was übrigens recht einfach mit dieser Funktion aus MaskUtils zu erreichen ist:

Result := FormatMaskText('00/00/00;0; ', '220516');