傳回 Double,指定資產在單一期間內的直線折舊。
語法
SLN ( 成本、殘餘、生命 )
SLN 函數具有下列自變數:
引數 |
描述 |
成本 |
必要。 Double 指定資產的初始成本。 |
打撈 |
必要。 Double 會在資產的使用期限結束時指定資產的值。 |
使用時間 |
必要。 Double 會指定資產的使用年限長度。 |
註解
折舊期間必須以 與年引數相同的單位表示。 所有自變數都必須是正數。
查詢範例
Expression |
結果 |
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 範例
附註: 下列範例示範如何在 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."