Financial.DDB メソッド

.NET Framework クラス ライブラリ リファレンス

Financial.DDB メソッド

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

名前空間: Microsoft.VisualBasic
アセンブリ: Microsoft.VisualBasic (microsoft.visualbasic.dll 内)
構文

Visual Basic (宣言)

Public Shared Function DDB
 ( _
    Cost As Double, _
    Salvage As Double, _
    Life As Double, _
    Period As Double, _
    <OptionalAttribute> Optional Factor As
 Double = 2 _
) As Double

Visual Basic (使用法)

Dim Cost As Double
Dim Salvage As Double
Dim Life As Double
Dim Period As Double
Dim Factor As Double
Dim returnValue As Double

returnValue = Financial.DDB(Cost, Salvage, Life, Period, Factor)

C#

public static double DDB (
    double Cost,
    double Salvage,
    double Life,
    double Period,
    [OptionalAttribute] double Factor
)

C++

public:
static double DDB (
    double Cost, 
    double Salvage, 
    double Life, 
    double Period, 
    [OptionalAttribute] double Factor
)

J#

public static double DDB (
    double Cost, 
    double Salvage, 
    double Life, 
    double Period, 
    /** @attribute OptionalAttribute() */ double Factor
)

JScript

public static function DDB
 (
    Cost : double, 
    Salvage : double, 
    Life : double, 
    Period : double, 
    Factor : double
) : double

パラメータ

Cost

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

Salvage

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

Life

必須。資産の耐用年数を示す Double 型の値。

Period

必須。減価償却費を計算する期を示す Double 型の値。

Factor

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

戻り値
倍率逓減法などの指定した方法を使って特定の期における資産の減価償却費を示す、Double 型の値を返します。

解説

詳細については、Visual Basic のトピック「DDB 関数」を参照してください。

倍率逓減法では、指定した償却率で減価償却費が計算されます。減価償却費は最初の期が最も高く、その後の期では減少していきます。

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

DDB 関数を使って指定した期に対する減価償却費を求めるには、次の数式を使います。

Depreciation / Period = ((Cost – Salvage) * Factor) / Life

使用例

この例では、DDB 関数を使用して、指定した期の資産の減価償却費を返します。資産購入時点の価格 (InitCost)、資産の耐用年数を経た後での残存価額 (SalvageVal)、資産の耐用年数 (LifeTime)、および減価償却費を計算する年 (Depr) を指定します。

Visual Basic

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)

プラットフォーム

Windows 98, Windows 2000 SP4, Windows CE, Windows Millennium Edition, Windows Mobile for Pocket PC, Windows Mobile for Smartphone, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

開発プラットフォームの中には、.NET Framework によってサポートされていないバージョンがあります。サポートされているバージョンについては、「システム要件」を参照してください。

バージョン情報

.NET Framework
サポート対象 : 2.0、1.1、1.0
.NET Compact Framework
サポート対象 : 2.0、1.0

参照

関連項目
Financial クラス
Financial メンバ
Microsoft.VisualBasic 名前空間
ArgumentException
その他の技術情報
DDB 関数
SLN 関数
SYD 関数
財務処理の概要