就是说，我要实现两台计算机的时间同步？谢谢！

自己写一个简单的winsock通讯，一开机就取服务器上的时间。

我直接区SQL服务器上的时间:GetTime()，然后setsystemtime。

'与数据库服务器是中同步
Public Sub SetComputerTime()
    Dim RsDate  As ADODB.Recordset
    Dim TemSys  As SystemTime
    Dim Curdate As Date
    Dim curTime As Date
    
    Set RsDate = HisConn.Execute("Select getdate() as CurDate,@@ServerName as ServerName")
 
    If Not RsDate.EOF Then
        Curdate = Format(RsDate.Fields("Curdate"), "yyyy-mm-dd")
        curTime = Format(RsDate.Fields("Curdate"), "hh:mm:ss")
'        ServerName = RsDate.Fields("ServerName")
        
        TemSys.wYear = Year(Curdate)
        TemSys.wMonth = Month(Curdate)
        TemSys.wDay = Day(Curdate)
        TemSys.wHour = Hour(curTime) - 8
        TemSys.wMinute = Minute(curTime)
        TemSys.wSecond = Second(curTime)
        
        '设置当前计算机的日期,时间.
        SetSystemTime TemSys
    End If
End Sub

windows能配置NTP吗？

查windows帮助文件 net time
net time
使计算机的时钟与另一个计算机或域的时钟同步。如果在没有 /set 选项的情况下使用，则显示另一个计算机或域的时间。

net time [\\computername | /domain[:domainname] | /rtsdomain[:domainname]] [/set] 

net time [\\computername] [/querysntp] | [/setsntp[:ntp server list]]

参数 

无

显示被指派为本地计算机的 Windows 服务器域的时间服务器的计算机的当前时间。

\\computername

指定要检查或与之同步的服务器的名称。 

/domain[:domainname]

指定要同步时间的域。

/rtsdomain[:domainname]

指定要与之同步的可信时间服务器所在的域。

/set

使计算机的时钟与指定的计算机或域的时间同步。

/querysntp

显示当前为本地计算机或 \\computername 所指定的计算机配置的网络时间协议 (NTP) 服务器的名称。

/setsntp[:ntp server list]

指定本地计算机所使用的 NTP 时间服务器的列表。该列表可以包含 IP 地址 或 DNS 名称，用空格分开。如果要使用多个时间服务器，该列表必须用引号引起来。