老师,我要在里面增加一个年的计算(分摊_年)
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