设置系统时间. (转)[@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 IntegerEnd TypeDim time As SYSTEMTIME

Private Sub Command1_Click()Dim hour As Integerhour = 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).TextEnd WithSetSystemTime 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/10748419/viewspace-997172/，如需转载，请注明出处，否则将追究法律责任。