Financial.DDB(Double, Double, Double, Double, Double) メソッド

  • リファレンス

定義

名前空間:
Microsoft.VisualBasic
アセンブリ:
Microsoft.VisualBasic.Core.dll
アセンブリ:
Microsoft.VisualBasic.dll
ソース:
Financial.vb
ソース:
Financial.vb
ソース:
Financial.vb

倍率逓減法などの指定した方法を使用して算出された、特定の期における資産の減価償却費を示す値を返します。

public static double DDB (double Cost, double Salvage, double Life, double Period, double Factor = 2);
static member DDB : double * double * double * double * double -> double
Public Function DDB (Cost As Double, Salvage As Double, Life As Double, Period As Double, Optional Factor As Double = 2) As Double

パラメーター

Cost
Double

必須です。 資産を購入した時点での価格です。

Salvage
Double

必須です。 耐用年数が終了した時点での資産の価値です。

Life
Double

必須です。 資産の耐用年数です。

Period
Double

必須です。 減価償却費を計算する期です。

Factor
Double

省略可能。 減価償却率です。 省略した場合は、2 (倍率逓減法) を指定したものと見なされます。

戻り値

Double

倍率逓減法などの指定した方法を使用して算出された、特定の期における資産の減価償却費です。

例外

ArgumentException

Factor<= 0、 Salvage< 0、 Period<= 0、または Period>Life。

例

次の使用例は、 関数をDDB使用して、初期コスト ()、資産の耐用年数終了時の回収額 (InitCostSalvageVal)、資産の耐用年数 ()、および減価償却費が計算される年単位の期間 (LifeTimeDepr) を指定して、指定した期間の資産の減価償却費を返します。

Dim InitCost, SalvageVal, LifeTime, DepYear As Double
Dim Fmt As String = "###,##0.00"

InitCost = CDbl(InputBox("What's the initial cost of the asset?"))
SalvageVal = CDbl(InputBox("Enter the asset's value at end of its life."))
LifeTime = CDbl(InputBox("What's the asset's useful life in years?"))

' Use the SLN function to calculate the deprecation per year.
Dim SlnDepr As Double = SLN(InitCost, SalvageVal, LifeTime)
Dim msg As String = "The depreciation per year: " & Format(SlnDepr, Fmt)
msg &= vbCrLf & "Year" & vbTab & "Linear" & vbTab & "Doubling" & vbCrLf

' Use the SYD and DDB functions to calculate the deprecation for each year.
For DepYear = 1 To LifeTime
    msg &= DepYear & vbTab & 
        Format(SYD(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbTab & 
        Format(DDB(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbCrLf
Next
MsgBox(msg)

注釈

倍額定率法では、減価償却費を加速償却率で計算します。 減価償却費は、最初の期間が最も高く、その後の期間では減少します。

引数と Period 引数はLife、同じ単位で表す必要があります。 たとえば、 が月単位で指定されている場合 Life は、 Period も月単位で指定する必要があります。 すべての引数は正の数値である必要があります。

関数は DDB 、次の式を使用して、特定の期間の減価償却費を計算します。

減価償却費 / 期間 = ((コスト - サルベージ) * 係数) / 有効期間

適用対象

こちらもご覧ください