Funkcija DDB

Vraća dvostruku vrijednost koja određuje amortizaciju sredstava za određeno vremensko razdoblje pomoću metode s dvostrukim amortizacijom ili neke druge metode koju navedete.

Sintaksa

DDB ( trošak, spašavanje, život, period [, faktor] )

Sintaksa funkcije DDB sadrži sljedeće argumente:

Argument

Opis

trošak

Obavezno. Dvostruko određivanje početnog troška imovine.

likvidacija

Obavezno. Double određuje vrijednost resursa na kraju svog životnog vijeka.

život

Obavezno. Udvostruči određivanje duljine životnog vijeka imovine.

razdoblja

Obavezno. Dvostruko određivanje razdoblja za koje se izračunava amortizacija imovine.

faktor

Dodatno. Varijanta koja određuje stopu koja se smanjuje. Ako se izostavi, pretpostavlja se 2 (metoda za dvostruko opadanju).


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 života i razdoblja moraju biti iskazani u istim jedinicama. Primjerice, ako se život dodjeljuje mjesecima, razdoblje se mora dati i u mjesecima. Svi argumenti moraju biti pozitivni brojevi.

Funkcija DDB koristi sljedeću formulu da bi izračunao amortizaciju za dato razdoblje:

Amortizacija/ razdoblje = ((trošakspašavanje) * faktor)/ život

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 pomoću funkcije DDB vraća amortizacija sredstava za određeno razdoblje s obzirom na početni trošak (InitCost), likvidacijska vrijednost na kraju korisnikovog životnog vijeka (SalvageVal), ukupan vijek trajanja resursa u godinama (LifeTime) i razdoblje 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) & "."

Potrebna vam je dodatna pomoć?

Proširite svoje vještine korištenja sustava Office
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

×