Vraća broj dvostruke preciznosti koji određuje amortizaciju imovine za određeno vremensko razdoblje, koristeći postupak ubrzane amortizacije fiksnom stopom od 200% stope otpisa po linearnoj metodi ili neki drugi navedeni postupak.
Sintaksa
DDB(cijena; likvidacija; vijek; razdoblje* [, faktor] )
Sintaksa funkcije DDB sadrži ove argumente:
| Argument | Opis |
|---|---|
| koštati | Obavezno. Dvostruko određivanje početne cijene imovine. |
| Likvidacija | Obavezno. Dvostruko određivanje vrijednosti imovine na kraju njezina vijeka trajanja. |
| vijek trajanja | Obavezno. Dvostruko određivanje duljine vijeka korištenja imovine. |
| točka | Obavezno. Dvostruko određeno razdoblje za koje se izračunava amortizacija imovine. |
| faktor | Neobavezno. Variant koji određuje stopu po kojoj se umanjuje vrijednost. Ako se izostavi, pretpostavlja se 2 (metoda dvostruke degresivne stope). |
Napomene
Postupak ubrzane amortizacije s fiksnom stopom 200% stope otpisa po linearnoj metodi računa amortizaciju ubrzanom stopom. Amortizacija je najveća u prvom razdoblju i smanjuje se u sljedećim razdobljima.
Argumenti vijeka i razdoblja moraju biti izraženi u istim jedinicama. Na primjer, ako se život daje u mjesecima, razdoblje se također mora dati u mjesecima. Svi argumenti moraju biti pozitivni brojevi.
Funkcija DDB koristi sljedeću formulu za izračun smanjenja vrijednosti za određeno razdoblje:
Amortizacija / razdoblje = ((cijena – likvidacija) * faktor) / vijek trajanja
Primjer
Napomena
Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
U ovom se primjeru koristi funkcija DDB za prikaz amortizacije imovine za navedeno razdoblje s obzirom na početni trošak (InitCost), likvidacijsku vrijednost na kraju vijeka korištenja imovine (SalvageVal), ukupni vijek trajanja imovine u godinama (LifeTime) i razdoblje u godinama za koje se amortizacija izračunava (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) & "."