|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
1、期初折旧(qczj)的测算
Function qczj(a As String, b As String, c As String, d As Integer, e As String)
Dim f As Integer
If (Year(c) - Year(b) - 1) * 12 + 12 - Month(b) >= d * 12 Then
f = d * 12
qczj = a * (1 - e)
Else
f = (Year(c) - Year(b) - 1) * 12 + 12 - Month(b)
qczj = a * (1 - e) / (d * 12) * f
End If
End Function
2、本期折旧(bqzj)的测算
function bqzj(a As String, b As String, c As String, d As Integer, e As String,g as string)
dim f as integer
If (Year(c) - Year(b) - 1) * 12 + 12 - Month(b) >= d * 12 Then
bqzj=0
else
if (Year(c) - Year(b) - 1) * 12 + 12 - Month(b)+month(c)>=d * 12 Then
bqzj=a * (1 - e)-g
else
f = (Year(c) - Year(b) - 1) * 12 + 12 - Month(b)+month(c)
bqzj=a * (1 - e) / (d * 12) * f-g
End If
end if
End Function
第一个参数为:固定资产原值 a
第二个参数为:启用日期 b
第三个参数为:测试折旧日期 c
第四个参数为:折旧年限 d
第五个参数为:残值率 e
第六个参数为:期初折旧 g |
|