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šak |
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 životnog veka 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
Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
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 materijalnih sredstava (SalvageVal), ukupan vek materijalnih sredstava u godinama (LifeTime) i period u godinama za koje 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) & "."
