[求助]如何利用DateYMD计算天数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何利用DateYMD计算天数

共有2039人关注过本帖树形打印复制链接主题：[求助]如何利用DateYMD计算天数

铜豌豆之首

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：91 积分：732 威望：0 精华：0 注册：2016/3/8 11:20:00

[求助]如何利用DateYMD计算天数 发帖心情

Post By：2016/9/30 22:27:00 [只看该作者]

如何利用DateYMD函数计算天数（用代码执行）

A列 B列 C列

起始日期结束日期天数

2012/2/28 2016/2/22 3年XX天

[此贴子已经被作者于2016/9/30 22:28:58编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

下一主题 >> << 上一主题

主题：[求助]如何利用DateYMD计算天数