有时我们对某些场合,对系统时间的要求是很高的,例如:SQLSERVER服务器间的同步或文件同步.但计算机的时钟运行一段时间,会出现一个误差.时间长了,可能达分钟以上.下面程序可以解决这个问题.该程从各天文台或国家授时中心读取时间后,并设置为计算机的本地时间.误差在一秒以内.
- Option Explicit
- Dim SvrName(14) As String
- '
- Private Sub SetTime()
- On Error Resume Next
- Dim i As Long
- For i = 1 To 14
- With Winsock1(i)
- If .State = 9 Then Exit Sub
- If .State > 0 Then .Close
- .Connect SvrName(i), 13
- End With
- Next
- Timer2.Enabled = True
- labMsg.Caption = "开始校时..."