Vráti hodnotu typu Double, ktorá určuje odpis majetku v konkrétnom časovom období s použitím metódy dvojnásobného odpisovania z klesajúceho zostatku alebo inej určenej metódy.

Syntax

DDB ( náklady, záchrana, život, obdobie [, faktor] )

Syntax funkcie DDB má tieto argumenty:

Argument

Popis

náklady

Povinný argument. Dvojitým zadaním počiatočných nákladov na majetok.

zachrániť

Povinný argument. Dvojité určenie hodnoty majetku na konci jeho obdobia použiteľnosti.

životnosti

Povinný argument. Dvojitá špecifikácia dĺžky životnosti majetku.

obdobia

Povinný argument. Dvojité určenie obdobia, pre ktoré sa vypočítava odpis majetku.

faktor

Voliteľný argument. Variant určujúci hodnotu, pri ktorej saldo klesá. Ak je argument vynechaný, predpokladá sa hodnota 2 (metóda s dvojitým odmietnutím).


Poznámky

Metóda dvojitého odpisovania z klesajúceho zostatku je metódou zrýchleného odpisovania. Odpis je najvyšší v prvom období a v nasledujúcich obdobiach klesá.

Argumenty Life a Period musia byť vyjadrené v rovnakých jednotkách. Ak je napríklad život daný v mesiacoch, lehota musí byť uvedená aj v mesiacoch. Všetky argumenty musia byť kladné čísla.

Funkcia DDB používa nasledujúci vzorec na výpočet odpisov za dané obdobie:

Odpisy/ obdobie = ((nákladyZáchrana) * faktor)/ život

Príklad

Poznámka: Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.

V tomto príklade sa používa funkcia DDB na vrátenie odpisu majetku za zadané obdobie vzhľadom na počiatočné náklady (InitCost), hodnotu vyradenia na konci obdobia použiteľnosti majetku (SalvageVal), celková životnosť aktíva v rokoch (LifeTime) a obdobie v rokoch, pre ktoré sa vypočítava odpis (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) & "."

Potrebujete ďalšiu pomoc?

Rozšírte svoje zručnosti
Preskúmať školenie
Buďte medzi prvými, ktorí získajú nové funkcie
Pripojiť sa k Microsoft Office Insiderom

Boli tieto informácie užitočné?

Aká je podľa vás jazyková kvalita textu?
Čo sa vám páčilo, prípadne čo nie?

Ďakujeme za vaše pripomienky!

×