Datum wird nach "FormatDateTime" falsch ausgegeben

[DieFliege]

Vielen Dank allen,

nun hab ich einen Ansatz, an dem ich weiter machen kann.

F1 ist mit Smartphone schlecht, aber das konntet ihr nicht wissen. Wollte die Wartezeit am Bahnhof nutzen 😉

LG Micha

[DeddyH]

http://www.delphipraxis.net/dp_reference.php sollte auch mit dem Smartphone funktionieren, Internetverbindung vorausgesetzt.

[p80286]

Und die zwei Ziffern für Jahrtausend und Jahrhundert würden den Benutzer zu stark beanspruchen?
raten gehört nun mal nicht zu den besten Lösungen.

Gruß
K-H

[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;