Текущий архив: 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.019 c
