Zobrazit vše

Skrýt vše

Vrátí hodnotu typu Double (Typ dat Double: Základní typ dat pro ukládání čísel s plovoucí desetinnou čárkou a dvojitou přesností. Je ukládán jako 64bitové číslo a může nabývat hodnot v rozmezí přibližně -1,797E308 až -4,940E-324 (záporné) a 4,94E-324 až 1,797E308 (kladné) nebo hodnoty 0.) určující odpis aktiva za určité časové období pomocí dvojité degresivní metody odpisu nebo jiné metody, kterou zadáte.

Syntaxe

DDB(cena, zůstatková_hodnota, životnost, období [, faktor] )

Syntaxe funkce DDB zahrnuje následující argumenty (Argument: Hodnota, která poskytuje informace určité akci, události, metodě, vlastnosti, funkci nebo proceduře.):

Poznámky

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

Argumenty (Argument: Hodnota, která poskytuje informace určité akci, události, metodě, vlastnosti, funkci nebo proceduře.) životnost a období je nutné vyjádřit ve stejných jednotkách. Pokud je například argument životnost uveden v měsících, musí být argument období uveden také v měsících. Všechny argumenty musí být kladná čísla.

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

Odpis / období = ((cena - zůstatková_hodnota) × faktor) / životnost

Příklad

 Poznámka:   Následující příklady uvádějí použití této funkce v modulu jazyka Visual Basic for Applications (VBA). Další informace o práci s jazykem VBA získáte tak, že klepnete na položku Referenční informace pro vývojáře v rozevíracím seznamu vedle pole Hledat a do pole pro hledání zadáte jeden nebo více pojmů.

V tomto příkladu je pomocí funkce DDB vrácen odpis aktiva za zadané období, přičemž je dána pořizovací cena aktiva (InitCost), zůstatková hodnota aktiva na konci jeho efektivní životnosti (SalvageVal), celková životnost aktiva v letech (LifeTime) a období (v letech), za které je odpis aktiva počítán (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) & "."