API 设置调整系统当前时间

andymark

对于时间要求比较严谨的情况下，需要对当前系统时间和外部时间作一个对比，并作相应的调整，这就要求能对系统时间重新设置

1. 
   
2. 
   
3. '**************************************************
   
4. '
   
5. ' 功能: 重新设置系统时间
   
6. ' 用法: SetTime "2008-4-26 22:53:48"
   
7. ' 作者: andymark
   
8. '  QQ : 42503577 ; Email: ewang11@163.com
   
9. ' 备注:
   
10. '
    
11. '**************************************************
    
12. '设置当前系统时间
    
13. Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long
    
14. Private Declare Function GetTimeZoneInformation Lib "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
    
15. Type SYSTEMTIME
    
16.     wYear As Integer
    
17.     wMonth As Integer
    
18.     wDayOfWeek As Integer
    
19.     wDay As Integer
    
20.     wHour As Integer
    
21.     wMinute As Integer
    
22.     wSecond As Integer
    
23.     wMilliseconds As Integer
    
24. End Type
    
25. 
    
26. '时区
    
27. Private Type TIME_ZONE_INFORMATION
    
28.         Bias As Long
    
29.         StandardName(32) As Integer
    
30.         StandardDate As SYSTEMTIME
    
31.         StandardBias As Long
    
32.         DaylightName(32) As Integer
    
33.         DaylightDate As SYSTEMTIME
    
34.         DaylightBias As Long
    
35. End Type
    
36. 
    
37. Public Sub SetTime(NewTime As String)
    
38. ' 功能: 设置系统时间
    
39.    Dim lpSystemTime As SYSTEMTIME               '时间信息
    
40.    Dim ZoneNum As Integer
    
41.     ZoneNum = getZoneNum()
    
42.     With lpSystemTime
    
43.         .wYear = Year(NewTime)
    
44.         .wMonth = Month(NewTime) + 1
    
45.         .wDayOfWeek = -1
    
46.         .wDay = Day(NewTime)
    
47.         .wHour = Hour(NewTime) + ZoneNum
    
48.         .wMinute = Minute(NewTime)
    
49.         .wSecond = Second(NewTime)
    
50.         .wMilliseconds = 0
    
51.     End With
    
52.    
    
53.    SetSystemTime lpSystemTime
    
54. End Sub
    
55. Private Function getZoneNum() As Integer
    
56.     Dim lpSystemZone As TIME_ZONE_INFORMATION    '时区信息
    
57.     GetTimeZoneInformation lpSystemZone
    
58.     getZoneNum = lpSystemZone.Bias / 60
    
59. End Function
    

复制代码

　　　

huangqinyong

[:35]

rjacky

好东西[:50]

t小宝

A兄，这个和用Date() 和Time设置时间有什么不同？

andymark

在某些问题上如网络对时 对文件日期(创建 修改 访问) 等操作 会更加简便

chinj

好东西

chinj

收藏了。

chaojianan

谢谢分享，收藏了备用。