也许是个愚蠢问题：如何分别获得服务器日期和时间？请赐教！
想获得服务器的日期和时间，在网上找到段代码试了下，还真管用：
Function Sqlser_time() As Date '获得SQL服务器时间
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
cnn.ConnectionString = "driver={SQL Server};server=David-Home;uid=sa;pwd=sa;database=master"
cnn.Open
cmd.ActiveConnection = cnn
cmd.CommandText = "SELECT GETDATE() AS sys_Sqlser_time"
Set rst = cmd.Execute
Sqlser_time = rst(0)
rst.Close
cnn.Close
End Function
Private Sub Command1_Click()
Dim a As Date
a = Sqlser_time
MsgBox a
End Sub
但问题也来了：最终得到的结果是2012-11-8 20:18:32
我想分别获得系统的时间和日期而不是合起来的字符串，怎么办？请赐教！
[最优解释]
?FormatDateTime("2012-11-8 20:18:32",vbShortDate)
2012-11-8
?FormatDateTime("2012-11-8 20:18:32",vblongtime)
20:18:32
[其他解释]
这还不简单？你把这个获取的字符串拆分一下不就可以了？？？
使用MID函数来拆分即可
[其他解释]
先CDate转为日期,想怎样处理都行了
[其他解释]
该回复于2012-12-08 14:13:03被管理员删除
[其他解释]
我是想直接从服务器上直接分开获得日期和时间，用mid这种方法不是我想要的。
而且每台电脑上日期设置都不一样，用mid获得的未必是正确日期格式。有更好的回答吗
[其他解释]
我试了下，得到该字符串前面的日期还是比较容易的，但要得到字符串后面的具体时间好像就不行了，应该怎么做？请赐教！
[其他解释]
前面后面有什么关系？
日期时间变量是当作 Double 类型保存的，整数部分是自某一起始日期的天数，小数部分是时间。
当你用日期函数处理时，VB 会在后台转换的。
