Часовой пояс в системе

[ProgEXEr]

Доброго времени суток!

Вопрос: как определить часовой пояс, установленный в системе? Желательно не через реестр, а через какую-то API-функцию.
В Google искал, по форуму тоже - не нашёл.

Заранее спасибо!

[Debugger]

Гуглим "Get time zone VB6".
Третья ссылка рассказывает нам о какой-то SetTimeZoneInformation.
Логично предположить, что к ней есть парная функция GetTimeZoneInformation.
Вот: http://msdn.microsoft.com/en-us/library ... 85%29.aspx
Этой функции надо передать ссылку на структуру TIME_ZONE_INFORMATION. Она должна её заполнить.
Код:

Код: Выделить всё

Option Explicit
Private Declare Function GetTimeZoneInformation Lib "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
Private Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type
Private Type TIME_ZONE_INFORMATION
        Bias As Long
        StandardName(32) As Integer
        StandardDate As SYSTEMTIME
        StandardBias As Long
        DaylightName(32) As Integer
        DaylightDate As SYSTEMTIME
        DaylightBias As Long
End Type

Private Sub Form_Load()
    Dim a As TIME_ZONE_INFORMATION
    GetTimeZoneInformation a
    Debug.Print a.Bias
End Sub

У меня выводит -180 (у меня GMT+3). Значит, часовой пояс можно получить по формуле: -a.Bias/60.

[ProgEXEr]

Debugger, большое спасибо за помощь!
Проверил, у меня UTC+11, показывает правильно по той формуле, которую Вы указали.