设置系统时间. (转)

设置系统时间. (转)[@more@]

Option Explicit

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
 
End Sub

 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-991565/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-991565/