[求助]计算两个日期列的差,取月数为整数(已解决) Post By:2011/9/9 10:58:00 [只看该作者]
第一个问题:一段代码,得出的月数含有小数,如何使其为整数,代码如下:
Case "折旧开始","折旧结束" If e.DataRow.isnull("折旧开始") And e.DataRow.isnull("折旧结束") Then e.DataRow("折旧月数")=Nothing Else Dim d1 As Date = e.DataRow("折旧开始") Dim d2 As Date = e.DataRow("折旧结束") If d1>d2 e.DataRow("折旧月数") = 0 Else e.DataRow("折旧月数") = (d2-d1).days/30 End If End If