Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как узнать текущие UTC время и дату

Как узнать текущие UTC время и дату

Используя API фукцию GetSystemTime.

Пример:

     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;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru