Foxtable(狐表)用户栏目专家坐堂 → 带条件的日期计算


  共有2437人关注过本帖树形打印复制链接

主题:带条件的日期计算

帅哥哟,离线,有人找我吗?
yaojun
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:573 积分:4653 威望:0 精华:0 注册:2014/7/3 15:28:00
带条件的日期计算  发帖心情 Post By:2023/3/1 14:56:00 [只看该作者]

如下代码计算出“距离完工日期还剩”多少天,如果今天是超出了完工日期(也就是说距离完工时间已经<0)了,请问如何写代码,谢谢!
Select Case e.DataCol.name
    Case "完工日期"
        Dim sp As TimeSpan = cdate(e.DataRow("完工日期")) - Date.Today
        e.DataRow("距离完工日期还剩") = sp.TotalDays
End Select

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107662 积分:547625 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/1 15:05:00 [只看该作者]

要写什么代码?距离完工时间已经<0后想做什么?

 回到顶部
帅哥哟,离线,有人找我吗?
yaojun
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:573 积分:4653 威望:0 精华:0 注册:2014/7/3 15:28:00
  发帖心情 Post By:2023/3/1 15:15:00 [只看该作者]

小于0则不计算

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107662 积分:547625 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/1 15:22:00 [只看该作者]

Select Case e.DataCol.name
    Case "完工日期"
if cdate(e.DataRow("完工日期")) > Date.Today
        Dim sp As TimeSpan = cdate(e.DataRow("完工日期")) - Date.Today
        e.DataRow("距离完工日期还剩") = sp.TotalDays
else
msgbox("已超时")
end if
End Select

 回到顶部