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, eksploatacijos laikas, laikotarpis [, koeficientas] )
Funkcijos DDB sintaksė turi tokius argumentus:
|
Argumentas |
Aprašas |
|
išlaidos |
Būtinas. Dvigubas skaičius , nurodantis pradinę turto kainą. |
|
Likvidacinė |
Būtinas. Dvigubas skaičius , nurodantis turto vertę pasibaigus jo naudingumo trukmei. |
|
įkrova |
Būtinas. Dvigubas skaičius , nurodantis turto naudingumo trukmę. |
|
Laikotarpį |
Būtinas. Dvigubas kiekis , nurodantis laikotarpį, kurio turto nusidėvėjimas skaičiuojamas. |
|
Veiksnys |
Pasirinktinis. Variantas, nurodantis balanso mažėjimo koeficientą. Jei nenurodyta, laikoma, kad naudojamas 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 ir laikotarpio argumentai turi būti išreikšti tais pačiais vienetais. Pavyzdžiui, jei gyvenimas nurodytas mėnesiais, laikotarpis taip pat turi būti nurodytas mėnesiais. Visi argumentai turi būti teigiami skaičiai.
Funkcija DDB amortizacijai per nurodytą laikotarpį skaičiuoti naudoja šią formulę:
Amortizacija / laikotarpis = ((kaina – likvidacinė vertė) * koeficientas) / ekspoatatavimo laikas
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 naudojama funkcija DDB , kad būtų grąžintas turto nusidėvėjimas per nurodytą laikotarpį su pradinėmis išlaidomis (InitCost), likvidacinė vertė turto naudingumo laikotarpio pabaigoje (SalvageVal), bendra turto naudojimo trukmė metais (LifeTime) ir laikotarpis, per kurį apskaičiuojamas nusidėvėjimas (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) & "."
