1  |   Order by index

Jul 11, 2002, 1:36pm

I made this function that does not atcually require the SDK :-). It works
out what GMT is and then takes off TWO so that the final value is VRT

Just try Msgbox VRT

Public Function GetGMTOffSet() As Integer
Dim objWinManInstrument As Object
Set objWinManInstrument = GetObject("WinMgmts:")
Dim objSysTimeZoneInfo As Object
Set objSysTimeZoneInfo =
objWinManInstrument.InstancesOf("win32_SystemTimeZone")
Dim objObjectCollection As Object
Dim objTimeZone As Object
Dim intMinMin As Integer
Dim dtmDayLightDateTime As Date
Dim dtmStandardDateTime As Date
Dim dtmGMTDateTime As Date
For Each objObjectCollection In objSysTimeZoneInfo
Set objTimeZone =
objWinManInstrument.Get(objObjectCollection.Setting)
Exit For
Next
If objTimeZone.DaylightBias <> 0 Then
dtmDayLightDateTime = CDate(Format(objTimeZone.DaylightMonth & "/" &
objTimeZone.DaylightDay & "/" & Format(Date, "yyyy"), _
"Short Date") & " " & Format(objTimeZone.DaylightHour & ":00",
"Short Time"))
dtmStandardDateTime = CDate(Format(objTimeZone.StandardMonth & "/" &
objTimeZone.StandardDay & "/" & Format(Date, "yyyy"), _
"Short Date") & " " & Format(objTimeZone.StandardHour & ":00",
"Short Time"))
If Now > dtmDayLightDateTime And Now < dtmStandardDateTime Then
intMinMin = objTimeZone.Bias + objTimeZone.DaylightBias
Else
intMinMin = objTimeZone.Bias
End If
Else
intMinMin = objTimeZone.Bias
End If
GetGMTOffSet = intMinMin
End Function

Public Function VRT() As String
Dim tmp As Date
tmp = VBA.DateAdd("s", Val(-(GetGMTOffSet)) * 60, Now)
tmp = VBA.DateAdd("h", -2, tmp)
VRT = tmp & " VRT"
End Function

1  |   Order by index