vb中如何读取服务器的系统时间？

Question

如果有SQL就可以用GETUTCDATE()得到服务器的时间

Answer 1

用SQL语句"select getdate() from table"就可以取出服务器的日期、时间
如果只要日期可以用convert()函数,convert(char(10),getdate(),120)取出的只是日期！

Answer 2

SQL SERVER的。
Public Function mdlGetServerTime(cnn As ADODB.Connection) As Date
'Purpose: Get the tiem from SQL server instead of local PC\
'Input  : cnn, the active database connection
'Output : the SQL server time in string format
'Date   : 08/Oct/2002 Jack
'
On Error GoTo mdlGetServerTime_ErrorHandler    Dim rst As New ADODB.Recordset
    Dim strSQL As String
    strSQL = "SELECT GetDate() as Time"
    rst.Open strSQL, cnn
    If Not (rst.EOF Or rst.BOF) Then
        If IsNull(rst.Fields(0)) = False Then
            mdlGetServerTime = rst.Fields(0)
        End If
    End If
    rst.Close
    Set rst = Nothing
    
mdlGetServerTime_Exit:
    Screen.MousePointer = vbDefault
    Exit FunctionmdlGetServerTime_ErrorHandler:
    MsgBox Err.Description
    Resume mdlGetServerTime_ExitEnd Function