Funkce DDB

Vrátí hodnotu Double určující odpis aktiva za určité časové období pomocí dvojité degresivní metody odpisu nebo jiné metody, kterou určíte.

Syntaxe

ODPIS.ZRYCH2(náklady, zůstatek, životnost, období* [, faktor] )

Syntaxe funkce ODPIS.ZRYCH2 obsahuje tyto argumenty:

Argument	Popis
Náklady	Povinný argument. Dvojitá hodnota určující pořizovací cenu aktiva.
Záchrana	Povinný argument. Dvojitá specifikace hodnoty aktiva na konci jeho životnosti.
ŽIVOT	Povinný argument. Double určující délku životnosti aktiva.
tečka	Povinný argument. Dvojitá specifikace období, pro které se počítá odpisování aktiva.
Faktor	Nepovinný argument. Proměnná určující sazbu, s jakou se zůstatek snižuje. Pokud argument vynecháte, jako jeho hodnota se použije hodnota 2 (dvojitá degresivní metoda).

    

Poznámky

Dvojitá degresivní metoda odpisu počítá odpis při degresivní sazbě. Odpis je nejvyšší v prvním období a v dalších obdobích se snižuje.

Argumenty doby a životnosti musí být vyjádřeny ve stejných jednotkách. Je-li například život uveden v měsících, musí být doba uvedena také v měsících. Všechny argumenty musí být kladná čísla.

Funkce ODPIS.ZRYCH2 používá k výpočtu odpisu za dané období následující vzorec:

Odpis / období = ((náklady – zůstatek) * faktor) / životnost

Příklad

V tomto příkladu se funkce ODPIS.ZRYCH2 použije k vrácení odpis aktiva za zadané období s ohledem na pořizovací cenu (InitCost), zůstatkovou hodnotu na konci doby použitelnosti aktiva (SalvageVal), celkovou životnost aktiva v letech (LifeTime) a období v letech, pro které se odpis počítá (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) & "."