SYD 函数 [VBA]

返回算数减少的折旧率。

This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.

语法:


SYD (Cost as Double, Salvage as Double, Life as Double, Period as Double)

返回值:

Double

参数:

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

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

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

「Period」是希望计算折旧金额的周期数。

错误代码:

5 无效的过程调用

示例:


REM ***** BASIC *****
Option VBASupport 1
Sub ExampleSYD
REM 计算资产的年度折旧额。资产在第一年初的成本为 $10,000
REM 五年后的残余价值为 $1,000。
Dim syd_yr1 As Double
REM 计算第一年的折旧额。
syd_yr1 = SYD( 10000, 1000, 5, 1 )
print syd_yr1 ' syd_yr1 现在等于 3000。
End Sub

Calc 中的 SYD 函数

VBA 财务函数