以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]时间计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158087)

--  作者：江南小镇 --  发布时间：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

--  作者：有点蓝 --  发布时间：2020/11/7 13:59:00 --   参考：http://www.foxtable.com/webhelp/topics/2648.htm