Mengembalikan Double yang menentukan depresiasi aset untuk periode waktu tertentu menggunakan metode menurun-ganda atau metode lain yang Anda tentukan.
Sintaks
DDB( cost, salvage, life, period [, factor] )
Sintaks fungsi DDB memiliki argumen ini:
Argumen |
Deskripsi |
biaya |
Diperlukan. Ganda menentukan biaya awal aset. |
Menyelamatkan |
Diperlukan. Ganda menentukan nilai aset di akhir masa pakainya yang berguna. |
Kehidupan |
Diperlukan. Ganda menentukan panjang masa pakai aset yang berguna. |
Periode |
Diperlukan. Ganda menentukan periode depresiasi aset yang dihitung. |
Faktor |
Opsional. Varian yang menentukan tingkat penurunan saldo. Jika dihilangkan, 2 (metode menurun-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 life and period harus dinyatakan dalam satuan yang sama. Misalnya, jika kehidupan diberikan dalam bulan, periode juga harus diberikan dalam bulan. Semua argumen harus berupa angka positif.
Fungsi DDB menggunakan rumus berikut ini untuk menghitung depresiasi untuk periode tertentu:
Depresiasi / periode = ((biaya – keselamatan) * faktor) / umur pakai
Contoh
Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.
Contoh ini menggunakan fungsi DDB untuk mengembalikan depresiasi aset untuk periode tertentu dengan biaya awal (InitCost), nilai sisa di akhir masa manfaat aset (SalvageVal), total umur aset dalam tahun (LifeTime), dan periode dalam 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) & "."