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');

StrToDateDef will nicht

StrToDateDef will nicht

AW: StrToDateDef will nicht

AW: StrToDateDef will nicht

AW: StrToDateDef will nicht

AW: StrToDateDef will nicht

AW: StrToDateDef will nicht

Forumregeln

DieDolly Registriert seit: 22. Jun 2018 2.175 Beiträge	#2 AW: StrToDateDef will nicht 13. Aug 2019, 12:49 Muss man nicht auch das Trennzeichen setzen, da es sonst standardmäßig das des Systems ist?
	Zitat

p80286 Registriert seit: 28. Apr 2008 Ort: Stolberg (Rhl) 6.659 Beiträge FreePascal / Lazarus	#3 AW: StrToDateDef will nicht 13. Aug 2019, 13:08 Wie wäre es mit 'DDMMYY', soll schon geholfen haben Gruß K-H Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen R.E.D retired error detector
	Zitat

hoika Registriert seit: 5. Jul 2006 Ort: Magdeburg 8.270 Beiträge Delphi 10.4 Sydney	#5 AW: StrToDateDef will nicht 13. Aug 2019, 14:07 Hallo, Zitat: Muss ich leider wieder klassisch den String zerpflücken Hm, warum packst du die 2 Datumspunkte nicht einfach vor dem StrToDateDef rein? Heiko
	Zitat

Uwe Raabe Registriert seit: 20. Jan 2006 Ort: Lübbecke 10.995 Beiträge Delphi 12 Athens	#6 AW: StrToDateDef will nicht 13. Aug 2019, 14:50 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'); Uwe Raabe Certified Delphi Master Developer Embarcadero MVP Blog: The Art of Delphi Programming
	Zitat