[教程]使用 Delphi 获取当前操作系统的时区

嗯，这段代码实际上已经集成到 QString 单元了，所以你可以直接调用 GetTimezone 函数来获得时区了。用 GetTimezoneText 可以获得时区的字符串表示。

function GetTimeZone: Integer;
var
{$IFDEF MSWindows}
  TimeZone: TTimeZoneInformation;
{$ELSE}
  tmLocal: TM;
  t1: time_t;
{$ENDIF}
begin
{$IFDEF MSWINDOWS}
  GetTimeZoneInformation(TimeZone);
  Result := -TimeZone.Bias;
{$ELSE}
  t1 := 0;
  localtime_r(t1, tmLocal);
  Result := tmLocal.tm_gmtoff div 60 ;
{$ENDIF}
end;

function GetTimezoneText: QStringW;
var
  ATz: Integer;
begin
  ATz := GetTimeZone;
  if ATz > 0 then
    Result := Format('+%.2d%.2d', [ATz div 60, ATz mod 60])
  else
  begin
    ATz := -ATz;
    Result := Format('-%.2d%.2d', [ATz div 60, ATz mod 60]);
  end;
end;

function GetTimeZone: Integer;

var

{$IFDEF MSWindows}

TimeZone: TTimeZoneInformation;

{$ELSE}

tmLocal: TM;

t1: time_t;

{$ENDIF}

begin

{$IFDEF MSWINDOWS}

GetTimeZoneInformation(TimeZone);

Result := -TimeZone.Bias;

{$ELSE}

t1 := 0;

localtime_r(t1, tmLocal);

Result := tmLocal.tm_gmtoff div 60 ;

{$ENDIF}

end;

function GetTimezoneText: QStringW;

var

ATz: Integer;

begin

ATz := GetTimeZone;

if ATz > 0 then

Result := Format('+%.2d%.2d', [ATz div 60, ATz mod 60])

else

begin

ATz := -ATz;

Result := Format('-%.2d%.2d', [ATz div 60, ATz mod 60]);

end;

代码不长，用起来也简单，它实际上返回的时区对应的分钟数，比如北京时间是480，也就是 8 小时，其它依次类推。使用 GetTimezonText 的话，就会返回 +0800。就是这么简单和完美。

登录