Einzelnen Beitrag anzeigen

Peter666

Registriert seit: 11. Aug 2007
357 Beiträge
 
#1

Zeitzonenproblem

  Alt 9. Mär 2016, 10:26
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
  Mit Zitat antworten Zitat