Узнать текущие время и дату по Гринвичу

Материал из 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