Local Time To GMT

[kmchong]

How can I know the difference between the local PC time and the GMT time?

Any idea?

Any Help?

[Mark Sreeves]

Here you are....

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 Declare Sub GetSystemTime Lib "kernel32.dll" (lpSystemTime As SYSTEMTIME)


Private Sub Command1_Click()
Dim utctime  As SYSTEMTIME

GetSystemTime utctime  ' put the time and date in UTC time into utctime
'Debug.Print "In Greenwich, England, the time is"; utctime.wHour; ":"; utctime.wMinute; ":"; utctime.wSecond


Debug.Print "Time Difference: " & Val(Format(Now, "h")) - utctime.wHour & " hour"

End Sub

[kmchong]

It works, thanks a lot.