Delphi의 다른 TimeZone에서 현재 시간을 얻으려면 어떻게해야합니까?

Question

Delphi에서 다른 시간대의 현재 시간을 어떻게 얻을 수 있습니까? TidSNTP를 사용하는 경우 내 로캘에서 표준 시간대 만 제공합니다.

Answer 1

delphi-tzdb (Time Zone Database for Delphi)으로 현지 시간을 다른 시간대로 쉽게 변환 할 수 있습니다.

다음은 해당 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;