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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  计算天数小于30等于30  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147560)

--  作者：高东坡
--  发布时间：2020/3/19 12:52:00
--  计算天数小于30等于30

Select Case e.DataCol.Name
Case "脚手架材料租赁_租赁日期","脚手架材料回收_回收日期"
Dim dr As DataRow = e.DataRow
If dr.IsNull("脚手架材料租赁_租赁日期") OrElse dr.IsNull("脚手架材料回收_回收日期") Then
dr("租赁天数") = Nothing
Else
Dim tp As TimeSpan = dr("脚手架材料回收_回收日期") - dr("脚手架材料租赁_租赁日期")
dr("租赁天数") = tp.TotalDays
End If
End Select
如果租赁天数小于30天，等于30天请指教

--  作者：有点蓝
--  发布时间：2020/3/19 13:39:00
--

if tp.TotalDays < 30 then
dr("租赁天数") =30
else
dr("租赁天数") = tp.TotalDays
end if