入参 impTime 为之前获取的服务器时间，可以参考：http://www.accessoft.com/blog/article-show.asp?userid=20576&Id=9810

 

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

Function SetTime(impTime As Date) As Long  
    '    设置时间数据
    Dim lpSystemTime As SYSTEMTIME
    With lpSystemTime
        .wYear = Year(impTime)
        .wMonth = Month(impTime)
        .wDay = Day(impTime)
        .wHour = Hour(impTime) - 8  '
        .wMinute = Minute(impTime)
        .wSecond = Second(impTime)
        .wMilliseconds = 0
    End With
'    MsgBox Year(impTime) & Month(impTime) & Day(impTime) & Hour(impTime) & Minute(impTime) & Second(impTime)
    SetTime = SetSystemTime(lpSystemTime)
    If SetTime = 0 Then
        MsgBox "修改系统时间失败！", vbCritical + vbOKOnly, "失败"
    End If
End Function