Обновлено: 01 декабря, 2018

Текущее время и дата по Гринвичу в Delphi

Используя 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;

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439