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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]时间计算

共有1998人关注过本帖树形打印复制链接主题：[求助]时间计算

江南小镇

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

等级：七尾狐帖子：1708 积分：11395 威望：0 精华：0 注册：2015/6/22 8:11:00

[求助]时间计算 发帖心情

Post By：2020/11/7 12:45:00 [只看该作者]

老师，我要在里面增加一个年的计算（分摊_年）

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

dr("分摊_月") = Nothing

Dim dt1 As Date = dr("日期_起始")

Dim dt2 As Date = dr("日期_终止")

dr("分摊_月") = (dt2.year - dt1.year) * 12 + dt2.month - dt1.month

End If

End Select

有点蓝

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

等级：超级版主帖子：106536 积分：541839 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/7 13:59:00 [只看该作者]

主题：[求助]时间计算