Fungsi DDB

Mengembalikan ganda yang menentukan depresiasi aset untuk periode waktu tertentu menggunakan metode saldo menurun ganda atau metode lain yang Anda tentukan.

Sintaks

DDB ( biaya, Salvage, hidup, periode [, faktor] )

Sintaks fungsi DDB memiliki argumen ini:

Argumen

Deskripsi

biaya

Diperlukan. Menggandakan biaya awal aset.

sisa

Diperlukan. Nilai ganda menentukan nilai aset di akhir masa manfaatnya.

asuransi

Diperlukan. Menggandakan panjang masa pakai aset yang berguna.

haid

Diperlukan. Periode penentuan ganda yang penyusutan asetnya dihitung.

faktor

Optional. Varian menentukan suku bunga untuk penurunan keseimbangan. 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 Life dan period harus diekspresikan dalam unit yang sama. Misalnya, jika kehidupan diberikan dalam bulan, periode juga harus diberikan dalam bulan. Semua argumen harus berupa bilangan positif.

Fungsi DDB menggunakan rumus berikut untuk menghitung penyusutan untuk periode tertentu:

Depresiasi/ periode = ((Costsisa) * Factor)/ Life

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 yang diberikan biaya awal (InitCost), nilai penyelamatan di akhir masa pakai aset yang berguna (SalvageVal), Total masa pakai aset dalam tahun (LifeTime), dan periode dalam tahun di mana penyusutan 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) & "."

Perlu bantuan lainnya?

Kembangkan keterampilan Office Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×