Wie bekomme ich die aktuelle Zeit in einer anderen TimeZone in Delphi?

Question

Wie bekomme ich die aktuelle Zeit aus verschiedenen Zeitzonen in Delphi. Wenn ich TidSNTP verwende, wird mir nur die Zeitzone in meinem Gebietsschema angezeigt.

Answer 1

Mit delphi-tzdb (Time Zone Database for Delphi) können Sie die lokale Zeit einfach in eine andere Zeitzone umwandeln.

Das folgende Beispiel stammt aus der documentation.

var 
    LSydney: TTimeZone; 
    LMadeUpLocalTime, LUniversalTime, 
    LSydneyTime: TDateTime; 
begin 
    // Get the Sydney time zone 
    LSydney := TBundledTimeZone.GetTimeZone('Australia/Sydney'); 

    // Encode a local date/time value -- 14th March 2009 at 12:45:00 PM 
    LMadeUpLocalTime := EncodeDateTime(2009, 03, 14, 12, 45, 00, 00); 

    // Find out what was the time in Sydney at that moment 
    LUniversalTime := TTimeZone.Local.ToUniversalTime(LMadeUpLocalTime); 
    LSydneyTime := LSydney.ToLocalTime(LUniversalTime); 

    WriteLn(Format('When in my time zone the time was %s, in Sydney it was %s.', 
    [DateTimeToStr(LMadeUpLocalTime), DateTimeToStr(LSydneyTime)])); 
end;