次の方法で共有

SLN 関数

  • [アーティクル]

資産の 1 期あたりの減価償却費を示す Double を返します。

構文

SLN(cost, salvage, life)

SLN 関数には、次の名前付き引数があります。

指定項目 説明
cost 必須。 資産を購入した時点での価格を指定する Double 。
salvage 必須。 耐用期間が終了した時点での資産の価格を指定する Double 。
life 必須。 資産の耐用期間を指定する Double。

解説

減価償却期間は、 有効期間引数と同じ単位で表す必要があります。 すべての引数は正の値で指定してください。

例

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

Dim Fmt, InitCost, SalvageVal, 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?")
Do While MonthLife < YEARMONTHS    ' Ensure period is >= 1 year.
    MsgBox "Asset life must be a year or more."
    MonthLife = InputBox("What's the asset's useful life in months?")
Loop
LifeTime = MonthLife / YEARMONTHS    ' Convert months to years.
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
    LifeTime = Int(LifeTime + 1)    ' Round up to nearest year.
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & Format(PDepr, Fmt) & " per year."

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。