Public Sub GetTimeZoneOffset As Int
Dim s, d As String
Dim l As Long
s = DateTime.DateFormat
DateTime.DateFormat = "MM/dd/yyyy HH:mm:ss"
l = DateTime.Now
d = DateTime.Date(l) & " GMT"
DateTime.DateFormat = "MM/dd/yyyy HH:mm:ss z"
Dim res As Int
res = -Round((l - DateTime.DateParse(d))/3600000)
DateTime.DateFormat = s
Return res
End Sub