修改本机与服务器时间一致的函数

时　间:2016-03-25 22:15:20
作　者:在水一方   ID：20576  城市：沈阳
摘　要:移植于vb的代码，修改本地系统时间，与服务器时间一致。
正　文:

入参 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

Access软件网QQ交流群 (群号:483923997) 　　　　　　Access源码网店