Task: Get Current Greewich Mean Time using GetSystemTime API Declarations 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) Dim gtime As SYSTEMTIME Code
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) Dim gtime As SYSTEMTIME
Code
Private Sub Timer1_Timer() GetSystemTime gtime Label1.Caption = "Time in Greewich is " & gtime.wHour & ":" & gtime.wMinute & ":" & gtime.wSecond End Sub
本文地址：http://com.8s8s.com/it/it44075.htm