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

Referensi

Definisi

Ruang nama:: Microsoft.VisualBasic

Rakitan:: Microsoft.VisualBasic.Core.dll

Rakitan:: Microsoft.VisualBasic.dll

Sumber:: Financial.vb

Sumber:: Financial.vb

Sumber:: Financial.vb

Penting

Beberapa informasi terkait produk prarilis yang dapat diubah secara signifikan sebelum dirilis. Microsoft tidak memberikan jaminan, tersirat maupun tersurat, sehubungan dengan informasi yang diberikan di sini.

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

Wajib diisi. Biaya awal aset.

Salvage: Double

Wajib diisi. Nilai aset pada akhir masa pakainya yang berguna.

Life: Double

Wajib diisi. Panjang masa pakai aset yang berguna.

Period: Double

Wajib diisi. Periode penghitungan depresiasi aset.

Factor: Double

Opsional. 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 mengingat biaya awal (InitCost), nilai keselamatan pada akhir masa pakai aset yang berguna (SalvageVal), total masa pakai aset dalam tahun (LifeTime), dan periode dalam tahun di mana depresiasi 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 saldo menurun ganda menghitung depresiasi pada tingkat yang dipercepat. Depresiasi tertinggi pada periode pertama dan menurun dalam periode berturut-turut.

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:

Penyusutan / Periode = ((Biaya - Penyelamatan) * Faktor) / Masa Pakai

Berlaku untuk

Bagikan melalui