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