SLN 関数

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

構文

SLN( cost, salvage, life )

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

引数

説明

cost

必須です。 資産の初期コストを示す倍精度浮動小数点型

salvage

必須です。 耐用年数が終了した時点での資産の価格を示す倍精度浮動小数点型

life

必須です。 資産の耐用年数の長さを示す倍精度浮動小数点型

解説

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

クエリの例

結果

FinancialSample から Expr1 として、SLN ([LoanAmount], [LoanAmount] *. 1, 20) を選択します。

資産の耐用年数が20年であることを考慮して、資産の0.1 価値が "LoanAmount" である資産の減価償却費を返します。この場合、資産の耐用年数は20年とします。

FinancialSample からの SLDepreciation 償却として、SLN ([LoanAmount], 0, 20) を選択します。

資産の耐用年数が20年であることを考慮して、"LoanAmount $0" という値の資産の減価償却費を返します。 結果は、列の減価償却に表示されます。

VBA の例

注: 次の例は、Visual Basic for Applications (VBA) モジュールでのこの関数の使用方法を示しています。 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."

注:  このページは、自動翻訳によって翻訳されているため、文章校正のエラーや不正確な情報が含まれている可能性があります。 私たちの目的は、このコンテンツがお客様の役に立つようにすることです。 情報が役に立ったかどうか、ご意見をお寄せください。 参考までに、こちらから英語の記事をお読みいただけます。

Office のスキルを磨く
トレーニングの探索
新機能を最初に入手
Office Insider に参加する

この情報は役に立ちましたか?

ご意見をいただきありがとうございます。

フィードバックをお寄せいただき、ありがとうございます。Office サポートの担当者におつなぎいたします。

×