共6 条记录, 每页显示 10 条, 页签: [1]

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

1楼

yyzlxc 发表于：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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目175.table

[此贴子已经被作者于2011-9-9 11:57:56编辑过]

2楼

狐狸爸爸 发表于：2011/9/9 11:16:00

Dim d1 As Date = #11/1/2010#
Dim d2 As Date = Date.Today
Dim m As Integer = (d2.year - d1.year) * 12 + (d2.month - d1.month)
output.show(m)

3楼

yyzlxc 发表于：2011/9/9 11:21:00

谢谢狐爸老师，第一个问题已经得到解决。

4楼

狐狸爸爸 发表于：2011/9/9 11:29:00

第二个问题没看懂。

5楼

紙上不談兵 发表于：2011/9/9 11:33:00

第二个问题

Case "调入单位","使用单位"

e.DataRow("负担单位") = iif(e.DataRow("使用单位") ="仓库" ,e.DataRow("调入单位"),e.DataRow("使用单位"))

6楼

yyzlxc 发表于：2011/9/9 11:58:00

谢谢“纸上不谈兵”老师的指教，问题得到圆满解决，感谢论坛这个平台和许多热心的老师们，使我们能够学到很多知识，再次感谢！！

共6 条记录, 每页显示 10 条, 页签: [1]