| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教计算剩余天数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179743) |
| -- 作者：13315253800 -- 发布时间：2022/9/6 21:29:00 -- 请教计算剩余天数 请教计算剩余天数，下面代码提示错误，请老师指导一下 Select Case e.DataCol.Name Case "到期日期" Dim dr As
DataRow = e.DataRow Dim d As
Date
= Date.Today If
dr.IsNull("到期日期") Then dr("剩余天数") = Nothing Else Dim tp As
TimeSpan = dr("到期日期") - d dr("剩余天数") = tp.TotalDays End If End Select |
| -- 作者：有点蓝 -- 发布时间：2022/9/6 21:43:00 -- 参考：http://www.foxtable.com/webhelp/topics/1517.htm Dim tp As TimeSpan = cdate(dr("到期日期")) - d
|
| -- 作者：13315253800 -- 发布时间：2022/9/6 22:45:00 -- 谢谢蓝老师！ |