关于时区

Question

如何计算系统时间和Greenwich时间的间隔？谢谢

Answer 1

Option ExplicitPrivate Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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
Dim time As SYSTEMTIMEPrivate Sub Form_Load()
    GetSystemTime time
    MsgBox hour(Now) - time.wHour + 24
End Sub