Hallo,
entweder habe ich riesige Tomaten auf den Augen oder es gibt ein riesiges Problem.
Folgende Aufgabe: wandle den String: '2020.07.23' mittels einer Function um in: 23.07.2020.
Man sollte meinen das ist einfach, aber ich bekomme immer den fehlerhaften String 23.07.23.2020 wieder, die Tagesnummer 23 ist doppelt.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:
| FUNCTION DateOfInternationalDate(iDate: String): String; var year, month, day: String; Const Dot='.'; BEGIN year := Copy(iDate,1,4); month := Copy(iDate,6,7); day := Copy(iDate,9,10); Result:=day+Dot+month+Dot+year; END;
procedure TForm1.Button1Click(Sender: TObject); begin label2.caption:=DateOfInternationalDate(label1.Caption); end; |
Ich habe diverse Dinge ausprobiert, googeln bringt da auch nicht weiter. Eure Meinung ist geschätzt
Rolf
Moderiert von Th69: Delphi-Tags hinzugefügt