老师,还是需要帮忙看看,不知道咋改了。如图的,现在1年2个月了,年折旧应该是第二年的,但现在还是在第一年
Dim t As TimeSpan = Date.Today - cdate(e.DataRow("投入使用日期"))
Dim nx As Integer = t.TotalDays / 365.2422
If nx <= 1 Then
e.DataRow("年折旧额") = e.DataRow("设备原值") * (2/5)
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 <= 3 Then
k = (yz - sum) * (2/5)
ElseIf i > 3 And i <= 4 Then
k = ((yz - sum) -e.DataRow("残值"))/2
ElseIf i > 4 And i < 5 Then
Dim k1 As Double = k
k1= k
Else
k = e.DataRow("残值")
End If
sum += k
i += 1
Loop
e.DataRow("年折旧额") = k
End If
此主题相关图片如下:1.jpg