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 老师,我原来计算“合约天数”以及“合约剩余天数”是这样写的,但是,这样计算的结果是获取本机的时间进行计算,但是本个项目是联机版的,如果每个人的电脑时间都是不一样的,那么计算结果就不一样了。如何实现获取服务器时间进行计算呢?(本项目数据库已经放在服务器上了。)
|