SLN 関数

資産の 1 期あたりの定額減価償却を示す倍精度浮動小数点型を返します。

構文

SLN(cost, salvage, life)

SLN 関数には、次の引数があります。

引数	説明
コスト	必須です。 資産の初期コストを示す倍精度浮動小数点型。
salvage	必須です。 耐用年数が終了した時点での資産の価格を示す倍精度浮動小数点型。
life	必須です。 資産の耐用年数の長さを示す倍精度浮動小数点型。

解説

減価償却期間は、有効期間引数と同じ単位で表す必要があります。 引数はすべて、正の数にする必要があります。

クエリの例

Expression	結果
SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample;	資産の耐用年数が 20 年であることを考慮して、"LoanAmount" と評価された資産の減価償却費を返します。サルベージ値は 10%("LoanAmount" に 0.1 を乗算します)。
SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample;	資産の耐用年数が 20 年であることを考慮して、"LoanAmount" と評価された資産の減価償却費を 0 ドルで返します。 結果は、SLDepreciation 列に表示されます。

VBA の例

この例では 、SLN 関数を使用して、資産の初期コスト (InitCost)、資産の耐用年数の終わりのサルベージ値 (SalvageVal)、資産の合計有効期間 (LifeTime) を指定して、1 つの期間の資産の定額減価償却費を返します。

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