以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]获取到服务器时间进行计算  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86550)
--  作者：liu1992
--  发布时间：2016/6/20 13:49:00
--  [求助]获取到服务器时间进行计算
 Case "起始日","终止日"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("起始日") OrElse dr.IsNull("终止日") Then
            dr("合约天数") = Nothing
            dr("合约进行天数") = Nothing
        Else
            Dim tp As TimeSpan = dr("终止日") - dr("起始日")
            dr("合约天数") = tp.TotalDays
           
            Dim tpa As TimeSpan = Date.today - CDate(e.DataRow("起始日"))
            e.DataRow("合约进行天数") = tpa.TotalDays
           
            Dim tpc As TimeSpan =  CDate(e.DataRow("终止日")) - Date.today
            dr("合约剩余天数") = tpc.TotalDays
            If dr("合约剩余天数") < 0 Then
                dr("状态") = "失效"
            Else
                dr("状态") = "生效"
            End If
        End If
       
老师，我原来计算“合约天数”以及“合约剩余天数”是这样写的，但是，这样计算的结果是获取本机的时间进行计算，但是本个项目是联机版的，如果每个人的电脑时间都是不一样的，那么计算结果就不一样了。如何实现获取服务器时间进行计算呢？（本项目数据库已经放在服务器上了。）
--  作者：czquickly
--  发布时间：2016/6/20 14:44:00
--  
Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
[此贴子已经被作者于2016/6/20 14:44:57编辑过]
--  作者：czquickly
--  发布时间：2016/6/20 14:46:00
--  
回复完代码怎么少了~~~~
帮助里肯定有
--  作者：czquickly
--  发布时间：2016/6/20 15:05:00
--  
http://www.foxtable.com/help/index.html?n=2318.htm