Funkcija DDB

Vrne dvojno število, ki določa amortizacijo osnovnega sredstva za določeno časovno obdobje z metodo dvojno pojemajočega salda ali katero drugo metodo, ki jo določite.

Sintaksa

DDB(stroški, vrednost_po_amor, št_obdobij, obdobje* [, faktor] )

Sintaksa funkcije DDB ima te argumente:

Argument	Opis
Stroškov	Obvezen. Dvojno število, ki določa začetno ceno sredstva.
Odpadna	Obvezen. Dvojno število, ki določa vrednost sredstva na koncu njegove življenjske dobe.
Življenje	Obvezen. Dvojno število, ki določa dolžino življenjske dobe sredstva.
Obdobje	Obvezen. Dvojno število, ki določa obdobje, za katerega se izračuna amortizacija sredstev.
Dejavnik	Neobvezen. Spremenljivka, ki določa stopnjo upadanja salda. Če ga izpustite, se predvideva 2 (metoda z dvojnim upadanjem).

    

Opombe

Metoda bilance z dvojnim upadanjem izračuna amortizacijo s pospešeno stopnjo. Amortizacija je najvišja v prvem obdobju in v zaporednih obdobjih upada.

Argumenta »življenjska doba« in »obdobje« morata biti izražena v istih enotah. Če je na primer življenjska doba v mesecih, je treba obdobje podati tudi v mesecih. Vsi argumenti morajo biti pozitivna števila.

Funkcija DDB za izračun amortizacije za dano obdobje uporablja to formulo:

Amortizacija / obdobje = ((stroški – vrednost_po_amor) * faktor) / življenjska doba

Primer

V tem primeru je uporabljena funkcija DDB za vrnitev amortizacije sredstva za določeno obdobje glede na začetno vrednost (InitCost), preostalo vrednost na koncu življenjske dobe sredstva (SalvageVal), skupno življenjsko dobo sredstva v letih (LifeTime) in obdobje v letih, za katera se izračuna 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) & "."