Applies To„Access“, skirta „Microsoft 365“ „Access 2024“ Access 2021 Access 2019 Access 2016

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 = ((kainalikvidacinė 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, DeprConst 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?")LoopLifeTime = 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.")LoopDepr = DDB(InitCost, SalvageVal, LifeTime, DepYear)MsgBox "The depreciation for year " & DepYear & " is " & _Format(Depr, Fmt) & "."

Reikia daugiau pagalbos?

Norite daugiau parinkčių?

Sužinokite apie prenumeratos pranašumus, peržiūrėkite mokymo kursus, sužinokite, kaip apsaugoti savo įrenginį ir kt.

Bendruomenės padeda užduoti klausimus ir į juos atsakyti, pateikti atsiliepimų ir išgirsti iš ekspertų, turinčių daug žinių.