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

← →
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;

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