Jak uzyskać aktualny czas w innym Strefie czasowej w Delphi?

Question

Jak uzyskać bieżący czas z różnych stref czasowych w Delphi. Jeśli korzystam z TidSNTP, dostarczy mi tylko strefę czasową w moim języku.

Answer 1

Możesz łatwo przekonwertować czas lokalny do innej strefy czasowej za pomocą delphi-tzdb (Time Zone Database for Delphi).

Poniżej znajduje się przykład jego 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;