SLN 函数 [VBA]

返回一个周期内资产的直线折旧额。整个折旧期间内的折旧总额是恒定的。

warning

将语句 Option VBASupport 1 放在模块中的可执行程序代码之前, 启用此函数或常量。


语法:


SLN (Cost as Double, Salvage as Double, Life as Double)

返回值:

Double

参数:

成本」是指资产的初始成本。

Salvage」是资产在折旧期限终止时的剩余价值。

Life」折旧期限确定资产折旧的周期数。

错误代码:

5 无效的过程调用

示例:


REM ***** BASIC *****
Option VBASupport 1
Sub ExampleSLN
REM 计算资产的年度折旧额,资产在第一年初成本为 $10,000,
REM 五年后的残余价值为 $1,000。
Dim y_dep As Double
y_dep = SLN( 10000, 1000, 6 )
print y_dep ' 返回 1500。
End Sub