主题：提取服务器时间的问题

Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
Output.Show("服务器时间: " & dt & " 本机时间: " & Date.Now)

测试结果，正确，钉是钉，铆是铆。

Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
Output.Show("服务器时间: " & dt & " 本机时间: " & Date.Now)
Dim xxdt As Date = dt
Output.Show(xxdt)

哪个地方需要系统时间，就在哪个地方重新获取。

要想只获取时间信息：

Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
Output.Show("服务器时间: " & dt & " 本机时间: " & Date.Now)
Dim xdt As Date = TimeValue(dt)
Output.Show(xdt)

这个问题，我早前做过：

一、

Access数据源

建一个数据表，一行一时间列。

在服务器上（放数据源的电脑）做个小项目，从不关闭。

计划管理，时间间隔：1，这样能保证时间精确。

代码：DataTables("服务器时间").DataRows(0)("时间") = Date.Now

 

自己的项目中：

全局代码：Public  _Now As Date

计划管理，时间间隔：1，这样能保证时间精确。

_Now = DateTables("服务器时间").DataRows(0)("时间")

 

二、

Sql数据源

自己的项目中：

全局代码：Public  _Now As Date

计划管理，时间间隔：1，这样能保证时间精确。

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Select GetDate()"
_Now = cmd.ExecuteScalar()