String nach TDateTime wandeln

[Iwo Asnet]

Für uralte Versionen und komplett ohne ordentliche Prüfung:

Delphi-Quellcode:

function XMLTimestampToDateTime(dts: string): TDateTime;
var
  y, m, d, h, n, s: Integer;
  // 12345678901234567890
  // YYYY-MM-DD HH:NN:SS
begin
  y := StrToIntDef(Copy(dts, 1, 4), 0);
  m := StrToIntDef(Copy(dts, 6, 2), 0);
  d := StrToIntDef(Copy(dts, 9, 2), 0);
  h := StrToIntDef(Copy(dts, 12, 2), 0);
  n := StrToIntDef(Copy(dts, 15, 2), 0);
  s := StrToIntDef(Copy(dts, 18, 2), 0);
  Result := EncodeDate(y, m, d) + EncodeTime(h, n, s, 0);
end;