Узнать текущие время и дату по Гринвичу
Материал из DRKB
Узнать текущие время и дату по Гринвичу[править | править код]
procedure TForm1.Button4Click(Sender: TObject);
var
lt: TSYSTEMTIME;
st: TSYSTEMTIME;
begin
GetLocalTime(lt);
GetSystemTime(st);
Memo1.Lines.Add(Format('LocalTime = %d/%d/%d %d:%d:%d',
[lt.wmonth, lt.wDay, lt.wYear, lt.wHour, lt.wMinute, lt.wSecond]);
Memo1.Lines.Add(Format('UTCTime = %d/%d/%d %d:%d:%d',
[st.wmonth, st.wDay, st.wYear, st.wHour, st.wMinute, st.wSecond]);
end;
Source: http://delphiworld.narod.ru
ID: 01649