高分：如何将客户机的时间更改为和服务器的时间一致？

Question

取得服务器时间：
  若：sql server 
  sql:语句： select getget() 
取得本地时间
  vb函数： now 、date 、time
设置本地时间 
  vb语句： now 、date 、time

Answer 1

'功能：获得服务器系统的时间
Public Function GetSrvDate(Cnn As ADODB.Connection) As Date
    Dim strSQL As String
    Dim rs As ADODB.Recordset    set rs = New ADODB.Recordset
    
    strSQL = "select getdate()"
    Set rs = Retrieve(strSQL, Cnn)
        
    GetSrvDate = rs(0).value
    
    rs.Close
    Set rs = NothingEnd Function调用时：
Date ＝ GetSrvDate

Answer 2

不管您用什么数据库，您都可以Shell下面这条命令来对时：
Net Time \\服务器名称或其IP地址 /SET /YES