Fungsi DDB

Mengembalikan Ganda yang menentukan depresiasi aset untuk periode waktu tertentu menggunakan metode penurunan ganda atau beberapa metode lain yang Anda tentukan.

Sintaks

DDB (biaya, penyelamatan, masa pakaian, periode* [, faktor] )

Sintaks fungsi DDB memiliki argumen berikut:

Argumen	Deskripsi
biaya	Diperlukan. Menentukan ganda biaya awal aset.
Penyelamatan	Diperlukan. Menentukan nilai ganda aset di akhir masa pakainya.
Kehidupan	Diperlukan. Menentukan ganda durasi masa manfaat aset.
Period (Titik)	Diperlukan. Periode penentuan ganda di mana depresiasi aset dihitung.
faktor	Opsional. Varian yang menentukan tingkat penurunan saldo. Jika dihilangkan, 2 (metode penurunan ganda) diasumsikan.

    

Keterangan

Metode neraca menurun-ganda menghitung depresiasi dengan tingkat yang dipercepat. Depresiasi adalah tertinggi dalam periode pertama dan menurun dalam periode berurutan.

Argumen kehidupan dan periode harus dinyatakan dalam satuan yang sama. Misalnya, jika hidup diberikan dalam bulan, periode juga harus diberikan dalam bulan. Semua argumen harus berupa angka positif.

Fungsi DDB menggunakan rumus berikut untuk menghitung depresiasi dalam suatu periode tertentu:

Depresiasi / periode = ((biaya – penyelamatan) * faktor) / umur

Contoh

Contoh ini menggunakan fungsi DDB untuk mengembalikan depresiasi aset untuk periode tertentu mengingat biaya awal (InitCost), nilai sisa pada akhir masa manfaat aset (SalvageVal), total masa pakai aset dalam tahun (LifeTime), dan periode tahun di mana depresiasi dihitung (Depr).

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, Depr
Const YRMOS = 12    ' Number of months in a year.
Fmt = "###,##0.00"
InitCost = InputBox("What's the initial cost of the asset?")
SalvageVal = InputBox("Enter the asset's value at end of its life.")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YRMOS    ' 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 / YRMOS    ' Convert months to years.
If LifeTime <> Int(MonthLife / YRMOS) Then
    LifeTime = Int(LifeTime + 1)    ' Round up to nearest year.
End If 
DepYear = CInt(InputBox("Enter year for depreciation calculation."))
Do While DepYear < 1 Or DepYear > LifeTime
    MsgBox "You must enter at least 1 but not more than " & LifeTime
    DepYear = InputBox("Enter year for depreciation calculation.")
Loop
Depr = DDB(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & _
Format(Depr, Fmt) & "."