SLN 函数

返回一个 Double 值, 指定一种时间内资产的直线折旧。

语法

SLN ( 成本、抢救、life )

SLN函数具有以下参数:

参数

描述

成本

必需。 指定资产的初始成本的double

废品

必需。 Double值, 指定资产在有用生命周期结束时的价值。

人生

必需。 指定资产的有效生命周期的长度的double

备注

折旧期的单位必须与life参数 的单位相同。 所有参数都必须是正数。

查询示例

表达式

结果

从 FinancialSample 中选择 SLN ([LoanAmount], [LoanAmount] *. 1, 20) 作为表达式1。

以 "LoanAmount" 的形式返回资产价值的折旧值, 其残值为 10% (即 "LoanAmount" 乘以 0.1), 并考虑资源的可用年限为20年。

选择 "SLN" ([LoanAmount], 0, 20) 作为 "FinancialSample 中的 SLDepreciation";

返回资产价值为 "LoanAmount" 的折旧值, 其残值为 $0, 即资源的可用年限为20年。 结果显示在列 SLDepreciation 中。

VBA 示例

注意: 下面的示例演示了在 Visual Basic for Applications (VBA) 模块中使用此函数的示例。 有关使用 VBA 的详细信息, 请在 "搜索" 旁边的下拉列表中选择 "开发人员引用", 然后在搜索框中输入一个或多个字词。

此示例使用SLN函数在给定资产的初始成本 (InitCost)、资产的可用生命周期 (SalvageVal) 结束时的残值和资产总使用年限 (LifeTime) 的情况下, 为单个期间返回固定资产的直线折旧。

Dim Fmt, InitCost, SalvageVal
Dim MonthLife, LifeTime, PDepr
Const YEARMONTHS = 12 ' Number of months in a year.
Fmt = "###,##0.00" ' Define money format.
InitCost = InputBox("What's the initial cost " & _
"of the asset?")
SalvageVal = InputBox("What's the asset's value " & _
"at the end of its useful life?")
MonthLife = InputBox("What's the asset's useful " & _
"life in months?")
' Ensure period is >= 1 year.
Do While MonthLife < YEARMONTHS
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's " & _
"useful life in months?")
Loop
' Convert months to years.
LifeTime = MonthLife / YEARMONTHS
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
' Round up to nearest year.
LifeTime = Int(LifeTime + 1)
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
Format(PDepr, Fmt) & " per year."

注意:  本页面是自动翻译的,可能包含语法错误或不准确之处。 我们的目的是使此内容能对你有所帮助。 能否告知我们此信息是否有所帮助? 下面是该参考内容的英文版

扩展你的 Office 技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×