Aracılığıyla paylaş


Financial.DDB(Double, Double, Double, Double, Double) Yöntem

Tanım

Çift azalan bakiye yöntemini veya belirttiğiniz başka bir yöntemi kullanarak belirli bir dönem için bir varlığın amortismanını belirten bir değer döndürür.

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

Parametreler

Cost
Double

Gereklidir. Varlığın ilk maliyeti.

Salvage
Double

Gereklidir. Malın yararlı ömrünün sonundaki değeri.

Life
Double

Gereklidir. Varlığın yararlı ömrünün uzunluğu.

Period
Double

Gereklidir. Varlık amortismanlarının hesaplandığı dönem.

Factor
Double

İsteğe bağlı. Bakiyenin düşme oranı. Atlanırsa, 2 (çift azalan yöntem) varsayılır.

Döndürülenler

Çift azalan bakiye yöntemini veya belirttiğiniz başka bir yöntemi kullanarak bir varlığın belirli bir süre için yıpranma süresi.

Özel durumlar

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

Örnekler

Bu örnekte, ilk maliyet ( ), varlığın yararlı ömrünün sonundaki hurda değeri (InitCost ), varlığın yılLifeTime cinsinden toplam ömrü () ve amortismanın hesaplandığı yıl cinsinden dönem (SalvageValDepr) göz önüne alındığında, belirli bir dönem için bir varlığın amortismanını döndürmek için işlevi kullanılırDDB.

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)

Açıklamalar

Çift azalan bakiye yönteminde amortisman, hızlandırılmış orandan hesaplanır. Amortisman ilk dönemde en yüksek düzeydedir ve sonraki dönemlerde azalır.

Life ve Period bağımsız değişkenleri aynı birimlerde ifade edilmelidir. Örneğin, aylar içinde verilirse Life , Period aylar içinde de verilmelidir. Tüm bağımsız değişkenler pozitif sayılar olmalıdır.

İşlev, DDB belirli bir dönemin amortismanını hesaplamak için aşağıdaki formülü kullanır:

Amortisman / Dönem = ((Maliyet - Hurda) * Faktör) / Ömür

Şunlara uygulanır

Ayrıca bkz.