专家坐堂-带条件的日期计算Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  带条件的日期计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185551)

--  作者：yaojun
--  发布时间：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

--  作者：有点蓝
--  发布时间：2023/3/1 15:05:00
--
要写什么代码？距离完工时间已经<0后想做什么？

--  作者：yaojun
--  发布时间：2023/3/1 15:15:00
--
小于0则不计算

--  作者：有点蓝
--  发布时间：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