- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]日期间隔计算 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132470)
-- 发布时间：2019/3/22 14:44:00
-- [求助]日期间隔计算
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:日期间隔计算.foxdb |
请老师帮忙看看藏库间隔为什么没有计算结果? 请教正确的计算代码,谢谢 |
-- 发布时间：2019/3/22 15:09:00
--
Select Case e.DataCol.name
Case "入藏日期","入库日期"
If e.DataRow.IsNull("入藏日期") OrElse e.DataRow.IsNull("入库日期") Then
e.DataRow("藏库间隔") = Nothing
Else
Dim dt1 As Date = e.DataRow("入藏日期")
Dim dt2 As Date = e.DataRow("入库日期")
Dim d= (dt2-dt1).TotalDays()
e.DataRow("藏库间隔") = d
End If
End Select
-- 发布时间：2019/3/22 15:46:00
--
帮我解决了问题,非常感谢