Applies ToAccess untuk Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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 = ((biayakeselamatan) * 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, DeprConst 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?")LoopLifeTime = 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.")LoopDepr = DDB(InitCost, SalvageVal, LifeTime, DepYear)MsgBox "The depreciation for year " & DepYear & " is " & _Format(Depr, Fmt) & "."

Perlu bantuan lainnya?

Ingin opsi lainnya?

Jelajahi manfaat langganan, telusuri kursus pelatihan, pelajari cara mengamankan perangkat Anda, dan banyak lagi.

Komunitas membantu Anda bertanya dan menjawab pertanyaan, memberikan umpan balik, dan mendengar dari para ahli yang memiliki pengetahuan yang luas.