Rodyti viską

Slėpti viską

Grąžina dvigubąjį (duomenų tipas Double: pagrindinis duomenų tipas, skirtas laikyti dvigubojo tikslumo slankiojo kablelio skaičius. Įsimenamas kaip 64 bitų dvejetainis skaičius, kurio reikšmės kinta nuo apytiksliai -1,797E308 iki -4,940E-324 (neigiamos), nuo 4,94E-324 iki 1,797E308 (teigiamos) ir 0.), nurodantį turto nusidėvėjimą per tam tikrą laikotarpį naudojant dvigubo mažėjimo balanso metodą ar kitą nurodytą metodą.

Sintaksė

DDB(kaina, likvidacinė vertė, eksploatacijos laikas, laikotarpis [, koeficientas] )

Funkcijos DDB sintaksės argumentai (argumentas: reikšmė, teikianti informaciją veiksmui, įvykiui, metodui, ypatybei, funkcijai arba procedūrai.):

Pastabos

Nusidėvėjimas dvigubo mažėjimo balanso metodu skaičiuojamas pagal mažėjimo koeficientą. Pirmuoju laikotarpiu nusidėvėjimas didžiausias, o paskesniais laikotarpiais mažėja.

Argumentai (argumentas: reikšmė, teikianti informaciją veiksmui, įvykiui, metodui, ypatybei, funkcijai arba procedūrai.) eksploatacijos laikas ir laikotarpis turi būti išreikšti tais pačiais vienetais. Pavyzdžiui, jeigu eksploatacijos laikas nurodytas mėnesiais, laikotarpis taip pat turi būti nurodytas mėnesiais. Visi argumentai turi būti teigiami skaičiai.

Funkcijoje DDB nusidėvėjimas per nurodytą laikotarpį apskaičiuojamas pagal šią formulę:

Nusidėvėjimas / laikotarpis = ((kaina – likvidacinė vertė) * koeficientas) / eksploatacijos laikas

Pavyzdys

 Pastaba   Toliau pateikiamuose pavyzdžiuose rodoma, kaip naudojama ši funkcija „Visual Basic for Applications“ (VBA) modulyje. Plačiau apie darbą su VBA žiūrėkite pasirinkę Nurodymai programuotojui išplečiamajame meniu šalia komandos Ieškoti ir įvedę į paieškos lauką vieną ar daugiau sąvokų.

Šiame pavyzdyje funkcija DDB naudojama norint grąžinti turto nusidėvėjimą per nurodytą laikotarpį pateikus pradinę kainą (InitCost), likvidacinę vertę turto naudingo naudojimo pabaigoje (SalvageVal), visą turto eksploatacijos laiką metais (LifeTime) bei laikotarpį metais, kurio skaič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) & "."