Как получить свой часовой пояс?

Private Declare Function GetTimeZoneInformation Lib 'kernel32' (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
 
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 Declare Function NetRemoteTOD Lib 'Netapi32.dll' ( _
    tServer as Any, pBuffer as Long) 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 Declare Function GetTimeZoneInformation Lib 'kernel32'
        (lpTimeZoneInformation as TIME_ZONE_INFORMATION) as Long
 
private Declare Function NetApiBufferFree Lib 'Netapi32.dll'
        (byval lpBuffer as Long) as Long
 
private Type TIME_OF_DAY_INFO
    tod_elapsedt as Long
    tod_msecs as Long
    tod_hours as Long
    tod_mins as Long
    tod_secs as Long
    tod_hunds as Long
    tod_timezone as Long
    tod_tinterval as Long
    tod_day as Long
    tod_month as Long
    tod_year as Long
    tod_weekday as Long
End Type
 
private Declare Sub CopyMemory Lib 'kernel32' Alias 'RtlMoveMemory'
                    (Destination as Any, Source as Any, byval Length as Long)
 
public Function getRemoteTOD(byval strServer as string) as date
 
    Dim result as date
    Dim lRet as Long
    Dim tod as TIME_OF_DAY_INFO
    Dim lpbuff as Long
    Dim tServer() as Byte
 
    tServer = strServer & vbNullChar
    lRet = NetRemoteTOD(tServer(0), lpbuff)
 
    If lRet = 0 then
     CopyMemory tod, byval lpbuff, len(tod)
     NetApiBufferFree lpbuff
     result = DateSerial(tod.tod_year, tod.tod_month, tod.tod_day) + _
     TimeSerial(tod.tod_hours, tod.tod_mins - tod.tod_timezone, tod.tod_secs)
     getRemoteTOD = result
    else
     Err.Raise Number:=vbObjectError + 1001, _
     Description:='cannot get remote TOD'
    End If
End Function

Option Explicit
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      As String * 64
   StandardDate      As SYSTEMTIME
   StandardBias      As Long
   DaylightName      As String * 64
   DaylightDate      As SYSTEMTIME
   DaylightBias      As Long
End Type
Private Declare Function GetTimeZoneInformation _
   Lib 'kernel32' (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
'
Public Function GetTimeBias() as Long
    Const TIME_ZONE_ID_STANDARD As Long = 1
    Const TIME_ZONE_ID_UNKNOWN As Long = 0
    Const TIME_ZONE_ID_DAYLIGHT As Long = 2
    Const TIME_ZONE_ID_INVALID As Long = &HFFFFFFFF
    Dim TimeZone      As TIME_ZONE_INFORMATION
    Dim plngRtn       As Long
    Dim plngMinutes   As Long
   
    plngRtn = GetTimeZoneInformation(TimeZone)
    GetTimeBias = -(TimeZone.Bias + IIf(plngRtn = TIME_ZONE_ID_DAYLIGHT, TimeZone.DaylightBias, 0))
End Sub