Вывести временную зону

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function GetTimeZone: string;
 var
   TimeZone: TTimeZoneInformation;
 begin
   GetTimeZoneInformation(TimeZone);
   Result := 'GMT ' + IntToStr(TimeZone.Bias div -60);
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   label1.Caption := GetTimeZone;
 end;

Here's the translation of the code into Russian:

Код программирования на языке Delphi, который получает информацию о текущем часовом поясе и отображает ее в лейбле на форме.

Разбор кода:

1. Функция GetTimeZone не принимает параметров и возвращает строку, представляющую собой текущее время зоны. Она использует функцию API GetTimeZoneInformation, чтобы получить информацию о времени зоне, которая хранится в переменной TimeZone.
2. Переменная Result присваивается значение 'GMT ' + IntToStr(TimeZone.Bias div 60). Это конвертирует偏ос (целое число, представляющее собой смещение от UTC в секундах), в строку и добавляет префикс "GMT" к ней. Например, если偏ос равен 3600 (что соответствует смещению на 1 час), то полученная строка будет "GMT +01".
3. Процедура Button1Click вызывается при клике кнопки на форме. Она вызывает функцию GetTimeZone и присваивает результат свойству Caption лейбла, названного label1.

Имproved версия кода:

function GetTimeZone: string;
var
  TimeZone: TTimeZoneInformation;
begin
  if GetTimeZoneInformation(TimeZone) = TIME_ZONE_ID_UNKNOWN then
    Result := 'Unknown time zone'
  else
    Result := Format('GMT %+02d', [TimeZone.Bias div 60]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.Caption := GetTimeZone;
end;

Изменения:

• Добавлена проверка для обработки случая, когда функция GetTimeZoneInformation возвращает неизвестный идентификатор времени зоны. В этом случае функция вернет строку "Unknown time zone".
• Используется функция Format, чтобы конвертировать смещение в строку в формате "GMT +/-HH", где HH - часовой offset от UTC. Это более читаемо, чем оригинальный код.

Примечание: Константа TIME_ZONE_ID_UNKNOWN определена в документации Windows API, но она не включается в стандартную библиотеку Delphi. Вам может потребоваться включить unit Windows и определить эту константу самостоятельно, если вы используете более старую версию Delphi, которая не имеет ее встроенной.

В статье предлагается функция на языке Delphi, которая выводит временную зону в формате GMT с учетом часового пояса.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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