以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期计算问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77921)
--  作者：douglas738888
--  发布时间：2015/11/27 20:10:00
--  日期计算问题
大红袍老师，请教：
下面我写的代码计算倒计天数（距离完成天数），到期后开始自动加天数了，怎么写代码能到0天后就不再往后计算，因为没有意义了。

Select Case e.DataCol.name
    Case "计划完成日期"
        Dim sp As TimeSpan = Date.Today - cdate(e.DataRow("计划完成日期"))
        e.DataRow("距离完成天数") = sp.TotalDays
End Select
--  作者：大红袍
--  发布时间：2015/11/27 20:12:00
--  
Select Case e.DataCol.name
    Case "计划完成日期"
        Dim sp As TimeSpan = Date.Today - cdate(e.DataRow("计划完成日期"))
        If sp.TotalDays >= 0 Then
            e.DataRow("距离完成天数") = sp.TotalDays
        Else
            e.DataRow("距离完成天数") = 0
       End If
End Select