Ç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, DeprConst 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?")LoopLifeTime = 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.")LoopDepr = DDB(InitCost, SalvageVal, LifeTime, DepYear)MsgBox "The depreciation for year " & DepYear & " is " & _Format(Depr, Fmt) & "."
