Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.453 Beiträge
 
Delphi 12 Athens
 
#8

AW: String in Datum umwandeln

  Alt 27. Jan 2020, 13:39
Lohnt es sich es zu versuchen mit TDateFormat?
Eher nicht.

Ich würde einen Wrapper um ISOISO601ToDate machen, der bei Bedarf den Doppelpunkt im Zeit-Offset ergänzt:
Delphi-Quellcode:
function ISO8601ToDate(const AISODate: string; AReturnUTC: Boolean = True): TDateTime;
var
  idxSign: Integer;
  S: string;
begin
  S := AISODate;
  idxSign := S.LastIndexOfAny(['+', '-']);
  if S.LastIndexOf(':') < idxSign then
    S := S.Insert(idxSign + 3, ':');
  Result := System.DateUtils.ISO8601ToDate(S, AReturnUTC);
end;
Bei einem Update auf 10.3.3+ kannst du den ja wieder rausnehmen.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat