以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何利用DateYMD计算天数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91169)
--  作者：铜豌豆之首
--  发布时间：2016/9/30 22:27:00
--  [求助]如何利用DateYMD计算天数
如何利用DateYMD函数计算天数 （用代码执行）
A列                      B列               C列
起始日期              结束日期         天数
2012/2/28          2016/2/22    3年XX天
[此贴子已经被作者于2016/9/30 22:28:58编辑过]
--  作者：狐狸爸爸
--  发布时间：2016/10/1 8:39:00
--  
Select Case e.DataCol.name
    Case "开始日期","结束日期"
        If e.DataRow.IsNull("开始日期") OrElse e.DataRow.IsNull("结束日期") Then
            e.DataRow("天数") = Nothing
        Else
            Dim y,m,d As Integer
            Dim dt1 As Date = e.DataRow("开始日期")
            Dim dt2 As Date = e.DataRow("结束日期")
            DateYMD(dt1,dt2,y,m,d)
            dt1 = dt1.AddYears(y)
            d= (dt2- dt1).TotalDays()
            e.DataRow("天数") = y & "年" & d & "天"
        End If
End Select