SLN 函數

傳回 Double，指定資產單一期間的直線折舊。

語法

SLN (成本、報廢、壽命)

SLN 函數有下列引數：

引數	描述
成本	必要。 Double 指定資產的初始成本。
搶救	必要。 Double 指定資產在其使用壽命結束時的價值。
生活	必要。 Double 指定資產的使用壽命長度。

註解

折舊期間必須以與壽命引數相同的單位表示。 所有引數都必須是正數。

查詢範例

運算式	結果
SELECT SLN ([LoanAmount]，[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample;	傳回價值為 “LoanAmount” 的資產折舊，其中殘值為 10% (“LoanAmount” 乘以 0.1) ，考慮資產的使用年期為 20 年。
SELECT SLN ([LoanAmount]，0,20) AS SLDepreciation FROM FinancialSample;	將資產的使用年限視為 20 年，傳回價值為 “LoanAmount” 且殘值為 $0 的資產折舊。 結果會顯示在 SLDepreciation 資料行中。

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."