Funkcija DDB

Pateikia dvigubą skaičių nurodantį turto nusidėvėjimą per tam tikrą laikotarpį naudojant dvigubo mažėjimo balanso metodą arba kitą jūsų nurodytą metodą.

Sintaksė

DDB (kaina, likvidacinė_v, eksploatav, laikotarpis* [, faktorius] )

Funkcijos DDB sintaksė turi tokius argumentus:

Argumentas	Aprašymas
kaina	Būtinas. Dvigubas skaičius , nurodantis pradinę turto kainą.
Gelbėjimas	Būtinas. Dvigubas nurodantis turto vertę jo naudingo tarnavimo laiko pabaigoje.
gyvenimas	Būtinas. Dvigubas nurodantis turto naudingo tarnavimo laiką.
laikotarpis	Būtinas. Dvigubas nurodo laikotarpį, kuriam skaičiuojamas turto nusidėvėjimas.
koeficientas	Pasirinktinis. Variantas, nurodantis normą, kuria balansas mažėja. Jei nenurodoma, naudojama reikšmė 2 (dvigubo mažėjimo metodas).

    

Pastabos

Dvigubo mažėjimo balanso metodas amortizaciją skaičiuoja taikant didėjantį tarifą. Amortizacija yra didesnė per pirmąjį laikotarpį ir per paskesnius laikotarpius sumažėja.

Gyvenimo irlaikotarpio argumentai turi būti išreikšti tais pačiais vienetais. Pavyzdžiui, jei gyvenimas nurodomas mėnesiais, laikotarpis taip pat turi būti nurodytas mėnesiais. Visi argumentai turi būti teigiami skaičiai.

Amortizacijai per nurodytą laikotarpį skaičiuoti funkcija DDB naudoja tokias formules:

Amortizacija per laikotarpį = (kaina – likvidacinė_vertė) * koeficientas) / eksploatacijos laikas

Pavyzdys

Šiame pavyzdyje naudojama DDB funkcija norint grąžinti turto nusidėvėjimą per nurodytą laikotarpį, atsižvelgiant į pradinę kainą (InitCost), likvidacinę vertę turto naudingo tarnavimo laiko pabaigoje (SalvageVal), bendrą turto eksploatavimo laiką metais (LifeTime) ir laikotarpį metais, kurio nusidėvėjimas skaičiuojamas (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) & "."