固定资产累计折旧 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 固定资产累计折旧

共有4008人关注过本帖平板打印复制链接主题：固定资产累计折旧

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106665 积分：542508 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/2/20 9:23:00 [只看该作者]

Dim nx As Integer = (Date.Today.Year - e.DataRow("投入使用日期").Year)

Dim i As Integer = 1

Dim sum As Double = 0

Dim yz As Double = e.DataRow("设备原值")

Dim k As Double

Do While i <= nx

If i < 4 Then

k = (yz - sum) * (1.0-0.85)

ElseIf i >= 4 And i <= 7 Then

k = (yz - sum) * (1.0-0.9)

Else

k = (yz - sum) * (1.0-0.95)

End If

sum += k

i += 1

Loop

e.DataRow("年折旧额") = k

总数 19 1 2 下一页

主题：固定资产累计折旧