Ç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. |
|
ömrü |
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. |
Notlar
Ç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
Not: Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.
Bu örnekte, ilk maliyet (InitCost), varlığın yararlı ömrünün sonundaki hurda değeri (SalvageVal), varlığın yıl cinsinden toplam ömrü (LifeTime) ve amortismanın hesaplandığı yıl cinsinden dönem (Depr) göz önünde bulundurularak, 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) & "."
