DDB İşlevi

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

Söz dizimi

ÇİFTAZALANBAKİYE(maliyet, hurda, ömür, dönem* [, faktör] )

ÇİFTAZALANBAKİYE işlevinin söz diziminde aşağıdaki bağımsız değişkenler bulunur:

Bağımsız değişken	Açıklama
Maliyet	Gerekli. Malın ilk maliyetini belirten çift .
kurtarma	Gerekli. Faydalı ömrünün sonunda malın değerini iki kez belirtmek.
Hayatı	Gerekli. Malın faydalı ömrünün süresini çift belirtme.
Dönem	Gerekli. Varlık amortismanının hesaplandığı çift belirtme dönemi.
faktör	İsteğe bağlı. Bakiyenin azaldığı oranı 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.

Ömür ve dönem bağımsız değişkenleri aynı birimlerle ifade edilmelidir. Örneğin, ömür ay olarak verilmişse, dönem de ay olarak verilmelidir. Tüm bağımsız değişkenlerin pozitif sayılar olması gerekir.

ÇİFTAZALANBAKİYE işlevi, belirli bir dönemdeki yıpranmayı hesaplamak için aşağıdaki formülü kullanır:

Amortisman / dönem = ((maliyet – hurda) * faktör) / ömür

Örnek

Bu örnekte, ilk maliyet (InitCost), malın yararlı ömrünün sonundaki hurda değeri (SalvageVal), malın yıl cinsinden toplam ömrü (LifeTime) ve amortismanın hesaplandığı yıl cinsinden dönem (Depr) verilen verilen belirli bir dönem için bir malın amortismanını döndürmek için ÇİFTAZALANBAKİYE işlevi kullanılmıştı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) & "."