Ü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?