主题：我有一个资产入库的窗口，请问累计折旧如何计算？

我有一个资产入库的窗口，请问累计折旧如何计算？ 列字段如下图所示，请问如何计算累计折旧？
此主题相关图片如下：100.jpg

累计折旧=总值/使用年限/12*使用月数（当前时间-登记日期)

用平均年限法 ，累计折旧的代码该如何写？

累计折旧该怎么计算呢？累计折旧=月提折旧*使用月数 这个“使用月数”该如何弄出来？

这个问题不是请教会计啊。我是不知道代码该如何写。累计折旧=月提折旧*使用月数  (使用月数=当前日期-登记日期 获取月数) 累计折旧如果是表达式列 那这个表达式该如何写呢？如何用表达式无法表示，那用代码又该如何实现呢？

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

点击浏览该文件:资产入库.foxdb

lihe60 请帮我看一下

我的是开发板的

 

还是没有反应啊？

 

我把代码改成这样 还是没有反应。

 

Select e.DataCol.name
    Case "单价"
        Dim y,m,d As Integer
        Dim t As Integer
        Dim dr As DataRow=e.DataRow
        Dim dt1 As Date = dr("登记日期")
        Dim dt2 As Date = now()
        DateYMD(dt1,dt2,y,m,d)
        t=y*12+m
        dr("累计折旧")=dr("总值")/dr("使用年限")/12*t
End Select

请问到底是哪里的代码错了呢？