Функция GetTimeZoneInformation

Declare Function GetTimeZoneInformation Lib "kernel32" ( _
    lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long

GetTimeZoneInformation читает текущие параметры настройки часового пояса компьютера. Информация помещена в переменную lpTimeZoneInformation.

Возвращаемое значение

В успешном случае функция может возвратить следующие значения:

TIME_ZONE_ID_UNKNOWN = 0	Часовой пояс неизвестен
TIME_ZONE_ID_STANDARD = 1	Используется стандартное время
TIME_ZONE_ID_DAYLIGHT = 2	Используется летнее время

В случае ошибки возвращается TIME_ZONE_ID_INVALID = &HFFFFFFFF (используйте GetLastError для получения дополнительной информации)

Параметры

lpTimeZoneInformation

Структура, которая получает информацию о часовом поясе

Пример

' Отображаем название часового пояса, установленного в компьютере
Dim myTZ As TIME_ZONE_INFORMATION
Dim s As String
Dim retval As Long ' возвращаемое значение

' Читаем информацию относительно выбранного
' часового пояса компьютера
retval = GetTimeZoneInformation(myTZ)
s = myTZ.StandardName
MsgBox "Часовой пояс: " & StrConv(s, vbFromUnicode)
s = myTZ.DaylightName
MsgBox "Часовой пояс летнего времени: " & StrConv(s, vbFromUnicode)

Категория

Время