Zeitzonenproblem

[Peter666]

Hi,

ich hab hier ein Problem mit dem Verständnis:

Delphi-Quellcode:

var
  utctime: TDateTime;
begin
  utctime := EncodeDateTime(2016, 03, 27, 02, 30, 00, 00);
  caption := dateTimeToStr(TTimeZone.Local.ToUniversalTime(utctime));
end;

Ich bekomme eine Exception, da zu dem Zeitpunkt ja Sommerzeit ist. Was muss ich machen, damit die Exception nicht kommt und die korrekte Sommerzeit für den Versatz benutzt wird?

vorher hab ich das wie folgt gemacht und da ging das:

Delphi-Quellcode:

function UTCToLocalTime(UTC: TDateTime): TDateTime;
var
  UTCTime, LocalTime: TSystemTime;
begin
  DatetimetoSystemTime(UTC, UTCTime);
  SystemTimeToTzSpecificLocalTime(@TimeZoneInf, UTCTime, LocalTime);
  result := SystemTimeToDateTime(LocalTime)
end;

Peter