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

Delphi , Синтаксис , Дата и Время

procedure TForm1.Button4Click(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;

Here's the translation of the provided text into Russian:

Код, написанный на Delphi, используется для получения текущего времени и даты в форматах местного времени (LocalTime) и UTC-времени (UTCTime).

Вот разбивка того, что код делает:

1. Он определяет две переменные lt и st типа TSYSTEMTIME. Это структура, которая хранит информацию о системной дате и времени.
2. Процедура получает местное время с помощью функции GetLocalTime и хранит его в переменной lt.
3. Затем она получает UTC-время с помощью функции GetSystemTime и хранит его в переменной st.
4. Она затем строит строку для обоих местного времени и UTC-времени, извлекая информацию из полей wmonth, wDay, wYear, wHour, wMinute и wSecond структуры TSYSTEMTIME.
5. Наконец, она добавляет эти строки в свойство Memo1.Lines.Add для отображения их в компоненте мемо.

Альтернативное решение с использованием функции FormatDateTime:

procedure TForm1.Button4Click(Sender: TObject);
begin
  Memo1.Lines.Add('Текущая дата и время (местное): ' + FormatDateTime('dd/mm/yyyy hh:nn:ss', Now));
  Memo1.Lines.Add('Текущая UTC-дата и время: ' + FormatDateTime('dd/mm/yyyy hh:nn:ss', nowUTC));
end;

В этом коде функция FormatDateTime используется для форматирования текущей даты и времени в обоих местном и UTC-форматах. Первый аргумент - строка, которая specifies формат вывода, а второй аргумент - значение даты и времени для форматирования.

Обратите внимание, что Delphi предоставляет встроенные функции для форматирования дат и времен, которые могут упростить ваш код и сделать его более читаемым.

Статья описывает программный код на языке Delphi, позволяющий узнать текущие время и дату по Гринвичу (UTC) и сравнить их с местным временем.

Комментарии и вопросы

:: Главная :: Дата и Время ::