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ė _ vertė, laikas, laikotarpis [, koeficientas] )

Funkcijos DDB sintaksė turi tokius argumentus:

Argumentas

Aprašas

išlaidos

Būtinas. Dvigubasis , nurodantis pradinę turto kainą.

Likvidacinė vertė

Būtinas. Dvigubasis , nurodantis turto vertę jo naudingo tarnavimo laiko pabaigoje.

gyvenimo

Būtinas. Dvigubasis , nurodantis naudingo turto tarnavimo trukmę.

laikotarpį

Būtinas. Dvigubasis , nurodantis laikotarpį, kuriam apskaičiuojamas turto nusidėvėjimas.

veiksnys

Pasirenkama. Varianto, kuriame sumažėja likutis, nurodymas. Jei nenurodyta, laikoma 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.

Argumentai Life ir period turi būti išreiškiami tais pačiais vienetais. Pvz., jei laikas yra mėnesiais, laikotarpis taip pat turi būti nurodytas mėnesiais. Visi argumentai turi būti teigiami skaičiai.

Funkcija DDB naudoja šią formulę, kad apskaičiuotumėte nurodyto laikotarpio nusidėvėjimą:

Nusidėvėjimas/ laikotarpis = ((kainaLikvidacinė) * koeficientas)/ Life

Pavyzdys

Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.

Šiame pavyzdyje funkcija DDB grąžina turto nusidėvėjimą per nurodytą laikotarpį, atsižvelgiant į pradinę kainą (InitCost), likvidacinę vertę turto naudingo tarnavimo laiko pabaigoje (SalvageVal), visą turto trukmę per metus (LifeTime) ir laikotarpį, kurio nusidėvėjimas apskaič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) & "."

Reikia daugiau pagalbos?

Tobulinkite savo „Office“ įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

×