Datum wird nach "FormatDateTime" falsch ausgegeben

[BadenPower]

Zitat:

Zitat von mkinzler (Beitrag 1309599)

Zitat:

***** Da ich eine Lösung gefunden habe, bitte ich um Schließung des Themas um weitere Diskussionen zu vermeiden - Vielen Dank *****

Dann wäre es nett, wenn Du diese hier Nennen würdest.

Hat er doch.

Zitat:

Zitat von DieFliege (Beitrag 1309541)

Zu meiner Lösung:
Ich habe das eingegebene Datum (mit oder ohne "19-hundert") mit dem aktuellen Datum verglichen und geprüft ob dieses "größer" ist als das aktuelle. Sollte es größer sein, ziehe ich 100 ab, sonst nicht. Sicherlich ist es eleganter zu lösen, da ich das Datum aber anschließend im ISO-Format ausgeben möchte, kann ich das Datum "manuell" zusammen setzen und damit gut mit meiner Lösung leben.

[DieFliege]

Noch einmal hallo zusammen.

Wunschgemäß führe ich hier einmal meine Funktion auf, mit der ich das Datum nun umstelle:

Delphi-Quellcode:

function ISODate(DateEU: String): String;
var
  datum_heute  : Integer;
  ISO_jahr     : String;
  EU_tag       : String;
  EU_monat     : String;
  EU_jahr      : Integer;
  ISODatum     : String;

begin
  datum_heute := CurrentYear;

  EU_tag         := FormatDateTime('dd', StrToDateTime(DateEU));
  EU_monat       := FormatDateTime('mm', StrToDateTime(DateEU));
  EU_jahr        := StrToInt(FormatDateTime('yyyy', StrToDateTime(DateEU)));
    if EU_jahr > datum_heute then EU_jahr := EU_jahr -100;
  ISO_jahr       := IntToStr(EU_jahr);
  ISODatum       := ISO_jahr + '-' + EU_monat + '-' + EU_tag;

  ISODate := ISODatum;
end;

Sicherlich geht es noch kürzer, ich habe mir jedoch gedacht, lieber etwas ausführlicher schreiben um es auch später irgendwann mal wieder nachvollziehen zu können.

Ich bedanke mich noch einmal für die entgegengebrachte Hilfe und wünsche allen ein schönes Wochenende.

LG Micha

[Union]

So wär's vielleicht besser:

Delphi-Quellcode:

function IsoDate(const DateEU : string) : TDateTime;
var
  LFs : TFormatSettings;
begin
  LFs := TFormatSettings.Create;
  LFs.TwoDigitYearCenturyWindow := 99;
  Result := StrToDateTime(DateEU, LFs);
end;