Einzelnen Beitrag anzeigen

DieFliege

Registriert seit: 6. Aug 2013
57 Beiträge
 
Delphi XE4 Professional
 
#22

AW: Datum wird nach "FormatDateTime" falsch ausgegeben

  Alt 23. Jul 2015, 17:05
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
  Mit Zitat antworten Zitat