DDB Function [VBA]

Returns the depreciation of an asset for a specified period using the arithmetic-declining method.

warning

This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.


Syntax:


DDB(Cost As Double, Salvage As Double, Life as Double, Period as Double, [Factor as Variant])

Return value:

Double

Parameters:

取得価額 には、資産を購入した時点での価格を指定します。

残存価額 には、耐用年数が終了した時点での資産の価格を指定します。

寿命は資産がどれくらい長い期間 (たとえば年または月)使用されるかの値です。

期間 は、値が計算される期間のことです。

(オプション) には、減価償却率を指定します。何も入力しなかった場合は 2 を指定したとみなされます。

この償却法を使うと、定額償却法とは対照的に、初期の償却費が高くなります。償却価額は償却期間ごとに減少します。この方法は通常、購入後に価値が急速に落ちる資産 (自動車やコンピューターなど) に使用します。この方法では、帳簿価格は決してゼロにならないので注意します。

Error codes:

5 無効なプロシージャー呼び出しです

Example:


Sub ExampleDDB
 Dim ddb_yr1 As Double
 ddb_yr1 = DDB(75000,1,60,12,2)
 Print ddb_yr1 ' returns 1,721.81 currency units.
End Sub

ご支援をお願いします!