主题：固定资产累计折旧

老师，以下我想增加个条件，就是第一年开始折旧时yz= e.DataRow("设备原值") * (1-0.85),从第二年开始用"(e.DataRow("设备原值")-之前每年折旧的累计值)*满足条件的折旧率（满足条件的折旧率如红色字体）例如蓝色字体样的。

例：

   一台设备原值：75600元，第一年折旧时年折旧额= 756000*（1-0.85）=113475元，第二年的年折旧额= （756000-113475）*（1-0.85）= 96453.75元，第三年的年折旧额 = （756000-113475-96453.75）*（1-0.85）= 81985.6875元，第四年的年折旧额= （756000-113475-96453.75-81985.6875）*（1-0.9）= 46408.55625元，以此类推

Dim nx As Integer  = (Date.Today.Year - e.DataRow("投入使用日期").Year)
Dim yz = e.DataRow("设备原值")
For i As Integer = 0 To nx
    If i >= 0 And i < 4 Then
        yz =  yz * (1-0.85)
    ElseIf i >= 4 And i <= 7 Then
        yz = yz * (1-0.9)
    Else
        yz = yz * (1-0.95)
    End If
Next
e.DataRow("年折旧额") = yz