Api示例：當地時間及格林尼治時間

發布: 2007-7-14 20:28 | 作者: 佚名 | 來源: 網絡轉載 | 查看: 34次 | 進入軟件測試論壇討論

看看以下代碼：

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private 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

Private Sub Form_Load()
    Dim LocalTime As SYSTEMTIME
    Dim SysTime As SYSTEMTIME
    '必須設為True，否則無法顯示下面打印的字符
    Me.AutoRedraw = True
    '取得但前時區的時間
    GetLocalTime LocalTime
    '取得系統的時間。即格林尼治時間。
    GetSystemTime SysTime
    Me.Print
    Me.Print "當地日期:" & LocalTime.wYear; "年" & LocalTime.wMonth & "月" & LocalTime.wDay & "日"
    Me.Print "當地時間:" & LocalTime.wHour & ":" & LocalTime.wMinute & ":" & LocalTime.wSecond
    Me.Print "格林尼治日期:" & SysTime.wYear; "年" & SysTime.wMonth & "月" & SysTime.wDay & "日"
    Me.Print "格林尼治時間:" & SysTime.wHour & ":" & SysTime.wMinute & ":" & SysTime.wSecond
End Sub
    如果沒有猜錯的話，顯示出來的時間相差8個時，這是因為中國在第八時區。你如果修改一下時區的話，可以看出時差在變化。(修改方法：雙擊系統拖盤區的時間->選擇"時區"選項卡)