DDB İşlevi

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

Söz dizimi

DDB(maliyet, hurda, ömür, dönem* [, faktör] )

DAB işlevinin söz diziminde şu bağımsız değişkenler bulunur:

Bağımsız değişken	Açıklama
Maliyet	Gerekli. Varlığın ilk maliyetini belirten çift.
Kurtarma	Gerekli. Varlığın yararlı ömrünün sonundaki değerinin çift belirtilmesi.
Hayat	Gerekli. Varlığın yararlı ömrünün uzunluğunu belirten çift.
Dönem	Gerekli. Varlık amortismanını hesaplayan çift belirtme dönemi.
Faktörü	İsteğe bağlı. Bakiyenin düşüş hızını belirten değişken. Atlanırsa, 2 (çift azalan yöntem) varsayılır.

    

Açıklamalar

Çift azalan bakiye yöntemi, yıpranmayı hızlandırılmış oranda hesaplar. Yıpranma ilk dönemde en yüksek değerindedir ve bunu izleyen dönemlerde azalır.

Yaşam ve dönem bağımsız değişkenleri aynı birimlerde ifade edilmelidir. Örneğin , yaşam ay cinsinden verilirse, dönem ay cinsinden de verilmelidir. Tüm bağımsız değişkenler pozitif sayılar olmalıdır.

DDB işlevi, 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

Örnek

Bu örnekte, ilk maliyet (), malın kullanım ömrü (), varlığın yılLifeTime cinsinden toplam ömrü (InitCost) ve amortismanın hesaplandığıDepr yıl cinsinden dönem (SalvageVal) göz önüne alındığında, belirli bir dönem için bir varlığın yıpranma değerini döndürmek için DDB işlevi kullanılır.

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) & "."