Financial.DDB(Double, Double, Double, Double, Double) Metode

Definisi

Ruang nama:
Microsoft.VisualBasic
Rakitan:
Microsoft.VisualBasic.dll

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

public static double DDB(double Cost, double Salvage, double Life, double Period, double Factor = 2);
static member DDB : double * double * double * double * double -> double
Public Function DDB (Cost As Double, Salvage As Double, Life As Double, Period As Double, Optional Factor As Double = 2) As Double

Parameter

Cost
Double

Required. Biaya awal aset.

Salvage
Double

Required. Nilai aset di akhir masa pakainya yang berguna.

Life
Double

Required. Panjang masa pakai aset yang berguna.

Period
Double

Required. Periode penghitungan depresiasi aset.

Factor
Double

Optional. Tingkat penurunan saldo. Jika dihilangkan, 2 (metode menurun-ganda) diasumsikan.

Mengembalikan

Double

Depresiasi aset untuk periode waktu tertentu menggunakan metode saldo menurun ganda atau beberapa metode lain yang Anda tentukan.

Pengecualian

ArgumentException

Factor <= 0, Salvage< 0, Period<= 0, atau Period>Life.

Contoh

Contoh ini menggunakan DDB fungsi untuk mengembalikan penyusutan aset untuk periode tertentu yang diberikan biaya awal (InitCost), nilai keselamatan 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 InitCost, SalvageVal, LifeTime, DepYear As Double
Dim Fmt As String = "###,##0.00"

InitCost = CDbl(InputBox("What's the initial cost of the asset?"))
SalvageVal = CDbl(InputBox("Enter the asset's value at end of its life."))
LifeTime = CDbl(InputBox("What's the asset's useful life in years?"))

' Use the SLN function to calculate the deprecation per year.
Dim SlnDepr As Double = SLN(InitCost, SalvageVal, LifeTime)
Dim msg As String = "The depreciation per year: " & Format(SlnDepr, Fmt)
msg &= vbCrLf & "Year" & vbTab & "Linear" & vbTab & "Doubling" & vbCrLf

' Use the SYD and DDB functions to calculate the deprecation for each year.
For DepYear = 1 To LifeTime
    msg &= DepYear & vbTab & 
        Format(SYD(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbTab & 
        Format(DDB(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbCrLf
Next
MsgBox(msg)

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 dinyatakan dalam unit yang sama. Misalnya, jika Life diberikan dalam bulan, Period juga harus diberikan dalam bulan. Semua argumen harus berupa angka positif.

Fungsi ini DDB menggunakan rumus berikut untuk menghitung depresiasi untuk periode tertentu:

Depresiasi / Periode = ((Biaya - Salvage) * Faktor) / Kehidupan

Berlaku untuk

Lihat juga