- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]计算两个日期列的差，取月数为整数（已解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12616)
-- 发布时间：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编辑过]
-- 发布时间：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)
-- 发布时间：2011/9/9 11:21:00
--
谢谢狐爸老师，第一个问题已经得到解决。
-- 发布时间：2011/9/9 11:29:00
--
第二个问题没看懂。
-- 发布时间：2011/9/9 11:33:00
--
第二个问题
Case "调入单位","使用单位"
e.DataRow("负担单位") = iif(e.DataRow("使用单位") ="仓库" ,e.DataRow("调入单位"),e.DataRow("使用单位"))
-- 发布时间：2011/9/9 11:58:00
--
谢谢“纸上不谈兵”老师的指教，问题得到圆满解决，感谢论坛这个平台和许多热心的老师们，使我们能够学到很多知识，再次感谢！！