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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期相减的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160314)

--  作者：狐狐妞
--  发布时间：2021/1/28 17:18:00
--  日期相减的问题

Select Case e.DataCol.Name
Case "下一次回访时间"
Dim dr As DataRow = e.DataRow
If dr.IsNull("下一次回访时间") Then
dr("剩余天数") = Nothing
Else
Dim tp As TimeSpan = dr("下一次回访时间") - Date.Today
dr("剩余天数") = tp.TotalDays
End If
End Select
‘-------------------------------------------------------------
date.today不能加入计算吗？那么用dr("下一次回访日期“） = date.today 能行吗？每次到了下一次回访的日期的当天，系统会自动提醒

--  作者：有点蓝
--  发布时间：2021/1/28 17:36:00
--
这个意思？

dr("剩余天数") = tp.TotalDays+1

--  作者：狐狐妞
--  发布时间：2021/1/28 19:09:00
--
不是，我先要的效果是，

列A是下次回访日期，想列C 显示离今天还有几天的时间，

--  作者：有点蓝
--  发布时间：2021/1/28 20:14:00
--
就是1楼的用法呀，有什么问题？截图说明一下