主题：[求助]计算两个日期列的差，取月数为整数（已解决）

第一个问题：一段代码，得出的月数含有小数，如何使其为整数，代码如下：

    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

第二个问题：求表内条件取值的代码。要求：如果使用单位列为仓库时，将调入单位列的值填入同行的负担单位列，否则将使用单位列的值填入。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目175.table