Dim nx As Integer = (Date.Today.Year - e.DataRow("投入使用日期").Year)
if nx = 0 then
e.DataRow("年折旧额") = e.DataRow("设备原值") * (1.0-0.85)
else
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
endif