TJSON.JSONToObject DateTime als LocalTime

[Hobbycoder]

Über die TJSONOption [joDateIsUTC] kann ich das ja einstellen.

Dann muss ich auf Serverseite mit der Funktion:

Delphi-Quellcode:

function UTCToLocalTime(AValue: TDateTime): TDateTime;
var
  SysTime1, SysTime2: TSystemTime;
  TZinfo: TTimeZoneInformation;
begin
  GetTimeZoneInformation(TZinfo);
  DateTimeToSystemTime(AValue, SysTime1);
  SystemTimeToTzSpecificLocalTime(@TZinfo, SysTime1, SysTime2);
  Result := SystemTimeToDateTime(SysTime2);
end;

das in die lokale Zeit umrechnen. Trotzdem habe ich immer noch eine Stunde zuviel. Berücksichtigt die Funktion SystemTimeToTzSpecificLocalTime keine Sommer-/Winterzeit?