Windows tidszone

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

Den passer da vist ikke helt ;) Min siger at jeg har sat min til Rom, normaltid...

Desuden, kan man ikke få den til at skrive forskellen i timer i stedet?? Altså f.eks. +2 for Dansk sommertid og +1 for Dansk normaltid??