Текущий архив: 2003.10.16;
Скачать: CL | DM;

Вниз

Часовой пояс и летнее/зимнее время   Найти похожие ветки 

← →
Alek Silverstone ©   (2003-10-04 21:03) [0]

Как узнать установленный на компьютере часовой пояс и летнее/зимнее время? Другими словами - смещение относительно GMT.

---

← →
dataMaster ©   (2003-10-04 21:16) [1]

Разницу во времени можно узнать так

procedure TForm1.Button1Click(Sender: TObject);
var
lt : TSYSTEMTIME;
st : TSYSTEMTIME;
begin
GetLocalTime(lt);
GetSystemTime(st);
Memo1.Lines.Add("LocalTime = " +
IntToStr(lt.wmonth) + "/" +
IntToStr(lt.wDay) + "/" +
IntToStr(lt.wYear) + " " +
IntToStr(lt.wHour) + ":" +
IntToStr(lt.wMinute) + ":" +
IntToStr(lt.wSecond));
Memo1.Lines.Add("UTCTime = " +
IntToStr(st.wmonth) + "/" +
IntToStr(st.wDay) + "/" +
IntToStr(st.wYear) + " " +
IntToStr(st.wHour) + ":" +
IntToStr(st.wMinute) + ":" +
IntToStr(st.wSecond));
end;

---

← →
Anatoly Podgoretsky ©   (2003-10-04 21:17) [2]

Alek Silverstone © (04.10.03 21:03)
Обычно смещение относительно GMT не изменяется

---

Страницы: 1 вся ветка

Текущий архив: 2003.10.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.035 c