Funkcija „DDB“

Vraća vrednost Double, koja navodi amortizaciju materijalnih sredstava za određeni vremenski period pomoću dvostruke stope linearne amortizacije na opadajuću osnovu ili nekog drugog preciziranog metoda.

Sintaksa

DDB(cena, rashod, vek, obračunski period* [, faktor] )

Sintaksa funkcije DDB ima sledeće argumente:

Argument	Opis
troškovi	Obavezno. Dvaput navođenje početne cene imovine.
Rashod	Obavezno. Dvaput navođenje vrednosti imovine na kraju njenog korisnog veka.
život	Obavezno. Dvostruko navođenje dužine korisnog veka imovine.
Obračunski period	Obavezno. Double navođenje perioda za koji se izračunava amortizacija materijalnih sredstava.
faktor	Opcionalno. Varijanta koja navodi stopu opadanja bilansa. Ako se izostavi, pretpostavlja se da je 2 (metod dvostrukog opadanja).

    

Primedbe

Dvostruka stopa linearne amortizacije na opadajuću osnovu računa stopu ubrzane amortizacije. Amortizacija je najveća u prvom periodu i smanjuje se u narednim periodima.

Argumenti veka i obračunskog perioda moraju biti izraženi u istim jedinicama. Na primer, ako je život dat u mesecima, period takođe mora biti dat u mesecima. Svi argumenti moraju biti pozitivni brojevi.

Funkcija DDB koristi sledeću formulu za izračunavanje amortizacije za dati period:

Amortizacija / obračunski period = ((cena – rashod) * faktor) / vek

Primer

Ovaj primer koristi funkciju DDB kako bi se dobila amortizacija materijalnih sredstava za precizirani period kada je data početna cena (InitCost), likvidaciona vrednost na kraju korisnog veka materijalnih sredstava (SalvageVal), ukupan vek materijalnih sredstava u godinama (LifeTime) i period u godinama za koji se izračunava amortizacija (Depr).

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