Определить GMТ компьютера (Delphi)

[Air]

Здравствуйте, поиском по форуму ничего не нашёл, даже слов GTM нет, я удивлён.

В нэте как-то глухо, по этому прошу помощи.

Нужно программно определить GTM компьютера, средствами Delphi 7.

Инфо:
GMТ - это часовой пояс... указывается в настройках часов компьютера.

Благодарю за ответы

[Sasha_Smirnov]

Это GMT, среднее время по Гринвичу (Гринвич — обсерватория на нулевом меридиане). А часовым поясом, скорее, является +1, +3 и т. п. — то есть то, что нужно прибавить к GMT, чтоб попасть в свой часовой пояс.

Программист путать буквы не должен. Поищите снова!

[Air]

тьфу ты... и то верно.
Ок, определить значение GMT на компьютере.

В принципе вопрос исчерпан, благодарю Sasha_Smirnov за своевременное предупреждение.

function GetTimeZone:String;
var TIME_ZONE:_TIME_ZONE_INFORMATION;
    i, j:integer;
begin
GetTimeZoneInformation(TIME_ZONE);
i:=TIME_ZONE.Bias div 60;
i:= i * -1;
j:=TIME_ZONE.Bias mod 60;
j:=abs(j);
Result:=inttostr(i)+':'+inttostr(j);
end;

Использование
Showmessage(GetTimeZone);

Пробовал всяко, и integer, и TTime, но в строковом формате как-то лучше. Задумался о TStringList, но тут думаю кому нужно так и сделают

[demin_as]

Возможно такое решение...

function GetDateTimeZone(AValue: TDateTime; AZoneMin: integer = 0): TDateTime;
  var
    TZ:_TIME_ZONE_INFORMATION;
    corMinutes: Integer;
  begin
    GetTimeZoneInformation(TZ);
    if TZ.Bias + AZoneMin  < 0 then corMinutes:= (TZ.Bias + AZoneMin) * -1
    else corMinutes:= TZ.Bias + AZoneMin ;
    if TZ.Bias + AZoneMin  < 0 then
      Result := AValue + EncodeTime(corMinutes div 60, corMinutes mod 60, 0, 0) * -1
    else
      Result := AValue + EncodeTime(corMinutes div 60, corMinutes mod 60, 0, 0);
  end;