DDB Fonksiyonu [VBA]

Aritmetik-azalma yöntemini kullanarak, belli bir dönemde bir malın amortisman değerini döndürür.

Bu sabit, işlev veya nesne, bir modüldeki çalıştırılabilir program kodundan önce yerleştirilen Option VBASupport 1 ifadesiyle etkinleştirilir.

DDB(Cost As Double, Salvage As Double, Life as Double, Period as Double, [Factor as Variant])

Double

Maliyet bir malın ilk alındığı andaki sabit fiyatıdır.

Kalan değer malın ömrü tamamlandıktan sonraki değeridir.

Ömür eşyanı ne kadar süre kullanılacağını belirten dönem (örneğin; yıl veya ay) rakamıdır.

Dönem değer kaybının hesaplandığı dönemi belirler.

Faktör (İsteğe bağlı) bakiyenin azalma oranıdır. Faktör girilmezse, 2 olarak varsayılır.

Çift azalan bakiye yöntemi, yıpranmayı hızlandırılmış oranda hesaplar. Bu işlevi ilk yıllarda hızlı değer kaybı gerekliyse kullanın. Yıpranma ilk dönemde en yüksek değerindedir ve bunu izleyen dönemlerde azalır. İlk döneminde satın alınan bir malın değer kaybı çok hızlı oluyorsa (örneğin teçhizat, bilgisayar) bu işlevi seçebilirsiniz. Şunu da not edelim bu hesaplama türünde malın defter değeri asla 0 değerine inmez.

Sub ExampleDDB
 Dim ddb_yr1 As Double
 ddb_yr1 = DDB(75000,1,60,12,2)
 Print ddb_yr1 ' 1,721.81 para birimini döndürür.
End Sub