Time Zone

[shtirliz]

Is there way to get Time Zone information and possibly change it using Windows API?

[Serge]

Sure!

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(0 To 31) As Integer
  StandardDate As SYSTEMTIME
  StandardBias As Long
  DaylightName(0 To 31) As Integer
  DaylightDate As SYSTEMTIME
  DaylightBias As Long
End Type
Private Declare Function SetTimeZoneInformation Lib "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
Private Declare Function GetTimeZoneInformation Lib "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long

Public Function GetTimeZone() As String
    Dim tZone As TIME_ZONE_INFORMATION
    Dim lngRet As Long
    Dim i As Long
    Dim strBuffer As String

    lngRet = GetTimeZoneInformation(tZone)
    
    For i = 0 To 31  ' the array's range is from 0 to 31
        If tZone.StandardName(i) = 0 Then Exit For
        strBuffer = strBuffer & Chr(tZone.StandardName(i)) 'convert the ASCII code into a character
    Next
    
    GetTimeZone = strBuffer
End Function


Private Sub Command1_Click()
    MsgBox GetTimeZone
End Sub

To Set TimeZone information, you have to run SetTimeZoneInformation, passing the TIME_ZONE_INFORMATION structure with time zone you want. If you pass ivalid time zone name, the function will fail.