以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期算天数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147336)

--  作者:outcat
--  发布时间:2020/3/14 14:33:00
--  日期算天数


图片点击可在新窗口打开查看此主题相关图片如下:111.png
图片点击可在新窗口打开查看

我这个日期天数,只能天数相减,月、年减不了,这个怎么回事呢

 

Select 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= (dt1-dt2).TotalDays()
            e.DataRow("天数") = d
        End If
End Select


--  作者:有点蓝
--  发布时间:2020/3/14 15:04:00
--  
我测试没有问题,请上传实例说明