Funkcija „DDB“

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

Sintaksa

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

Sintaksa funkcije DDB ima sledeće argumente:

Argument	Opis
Troška	Obavezno. Double koji navodi početnu cenu imovine.
Spasiti	Obavezno. Double koji navodi vrednost imovine na kraju korisnog životnog veka.
Ћivot	Obavezno. Double koji navodi dužinu korisnog veka imovine.
Period	Obavezno. Double specifying period for which asset apreciation is calculated.
Faktor	Opcionalno. Varijanta koja navodi stopu opadanja bilansa. Ako je izostavljen, pretpostavlja se da je 2 (dvostruki metod opadajućeg redosleda).

    

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 životnogveka i perioda moraju biti izraženi u istim jedinicama. Na primer, ako se život da u mesecima, period mora da se da i u mesecima. Svi argumenti moraju biti pozitivni brojevi.

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

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

Primer

Ovaj primer koristi funkciju DDB za vraćanje amortizacije materijalnih sredstava za precizirani period kada je data početna cena (InitCost), vrednost rashoda na kraju korisnog veka imovine (), ukupan vek materijalnih sredstava u godinama (LifeTime) i period u godinama za koje se izračunava amortizacija (SalvageValDepr).

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