校对时间问题

Question

请问一下 ,我想在客户端 和服务器想连时,先校时 (将客户端时间改成和服务器时间一样!!)该如何做呢???

Answer 1

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
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long
Private Sub Form_Load()
    Dim lpSystemTime As SYSTEMTIME
    lpSystemTime.wYear = 2000
    lpSystemTime.wMonth = 1
    lpSystemTime.wDayOfWeek = -1
    lpSystemTime.wDay = 24
    lpSystemTime.wHour = 23
    lpSystemTime.wMinute = 26
    lpSystemTime.wSecond = 0
    lpSystemTime.wMilliseconds = 0
    'set the new time
    SetSystemTime lpSystemTime
End Sub

Answer 2

我觉得思路这样对不对?? 先得到时间,然后改时间? 好象得到时间是用 shell 什么的??如何得到 如何修改??

Answer 3

如果服务器有sql server就用getdate
如果没有就试试net time。。

Answer 4

在 http://www.mndsoft.com 输入 "时间"或者 “校对” 进行搜索看看。

Answer 5

取服务器时间可以用以下sql 语句 (sql server)"select top 1 getdate() from sysobjects"你可以用ado的command对象运行这个SQL语句,然后赋给recordset对象来取得时间.
然后用上面说的SetSystemTime 来设置时间

Answer 6

"select getdate()"
也可以

Answer 7

getdate()就是抓取sql中客户端命令到达服务器的时间。

Answer 8

不对，是取服务器时间的，不信可以try一下---------------------------------------
getdate()就是抓取sql中客户端命令到达服务器的时间。