Текущее время и дата по Гринвичу в 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; 
Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий