SLN 函数 [VBA]

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

警告图标

该功能或常量可通过以下语句启用:「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