freepascal.ru

Код: Выделить всё

  {$IFDEF WINDOWS}
      cbTimeList.Clear;
      reg             := TRegistry.Create;
      reg.RootKey     := HKEY_LOCAL_MACHINE;
      reg.LazyWrite   := false;

      r:=reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones');
      if r and reg.HasSubKeys then
      begin
        ts := TStringList.Create;
        reg.GetKeyNames(ts);
        reg.CloseKey;
        for i := 0 to ts.Count -1 do
        begin
          reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones\' + ts.Strings[i], false);
          //sTmp:=ts.Strings[i]+' - '+reg.ReadString('Display')+' - '+reg.ReadString('Std')+' - '+reg.ReadString('Dlt');
          sTmp:=reg.ReadString('Display');
          sTmp:=WinCPToUTF8(sTmp);
          cbTimeList.Items.Add(sTmp);
          reg.CloseKey;
        end;
        ts.Free;
      end
      else
        reg.CloseKey;
      reg.free;
  {$ELSE}
       cbTimeList.Clear;
  {$ENDIF}


Код: Выделить всё

NowUTC

resident писал(а):NowUTC

Sharfik писал(а):Это текущее UTC, а я про другую временную зону спрашиваю

Sharfik писал(а):Скажем сколько сейчас в Лондоне, чтобы вернула.

resident писал(а):Дык прибавить соответствующую дельту другой временной зоны.

Снег Север писал(а):Надо еще учитывать зимнее/летнее время разных стран, так что это не столь тривиально.

SSerge писал(а):Коллеги, ознакомьтесь пожалуйста с этим материалом

Во FreePascal касающееся работы с датами и временем содержится в unitах SysUtils и DateUtils. Количество функций впечатляет, однако при внимательном изучении можно легко придти к мнению, что многие из них бесполезны целиком и полностью, а многие на самом деле будут выдавать далеко не то, что от них ожидается.

SSerge писал(а):Коллеги, ознакомьтесь пожалуйста с этим материалом: http://sirserge.altai.info/articles/?id=46

AlphaBlend писал(а):а почему нельзя синхронизировать время с NTP-сервера ? )

pupsik писал(а):http://wiki.freepascal.org/PascalTZ не подойдет?

Как я понял нужно тогда вести свою БД по временным зонам

Sharfik писал(а):буду дальше разбираться с реестром значит

AlphaBlend писал(а):Эта штука работает корректно , если Ваш сервер синхронизирует свое время !