以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]计算两个日期列的差,取月数为整数(已解决)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12616)

--  作者: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编辑过]

--  作者:狐狸爸爸
--  发布时间: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)

--  作者:yyzlxc
--  发布时间: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("使用单位"))

--  作者:yyzlxc
--  发布时间:2011/9/9 11:58:00
--  
谢谢“纸上不谈兵”老师的指教,问题得到圆满解决,感谢论坛这个平台和许多热心的老师们,使我们能够学到很多知识,再次感谢!!