Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long
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 SYSTEMTIME
Private Sub Command1_Click() Dim hour As Integer hour = txttime(3) - 8 ''''Beijing Time
With time .wYear = txttime(0).Text .wMonth = txttime(1).Text .wDay = txttime(2).Text .wHour = IIf(hour > 0, hour, hour + 24) ''''set universal time .wMinute = txttime(4).Text .wSecond = txttime(5).Text End With SetSystemTime time
End Sub
Private Sub Form_Load() GetSystemTime time With time txttime(0).Text = .wYear txttime(1).Text = .wMonth txttime(2).Text = .wDay txttime(3).Text = .wHour + 8 ''''Beijing Time txttime(4).Text = .wMinute txttime(5).Text = .wSecond End With