Funktsioon DDB

Tagastab väärtuse Kahekordne, mis määrab vara kulumi kindlal perioodil, kasutades topeltdangangeerimise meetodit või mõnda muud teie määratud meetodit.

Süntaks

DDB(maksumus, jääk, kestus, periood* [, tegur] )

Funktsiooni DDB süntaksil on järgmised argumendid.

Argument	Kirjeldus
Kulu	Nõutav. Topelttäpsusega arv, mis määrab vara algmaksumuse.
Päästa	Nõutav. Topelttäpsusega arv, mis määrab vara väärtuse kasuliku tööea lõpus.
Elu	Nõutav. Topelttäpsusega arv, mis määrab vara kasuliku tööea pikkuse.
Perioodi	Nõutav. Kahekordne , mis määrab perioodi, mille kohta vara amortisatsioon arvutatakse.
Tegur	Valikuline. Variant, mis määrab saldo vähenemise määra. Kui see puudub, eeldatakse, et see on 2 (topeltdglinatsioonimeetod).

    

Kommentaarid

Topeltdegressiivne amortisatsioonimeetod arvutab amortisatsiooni kiirendatud tempos. Amortisatsioon on kõrgeim esimesel perioodil ja väheneb järgnevatel perioodidel.

Argumendid kestus ja periood tuleb väljendada samades ühikutes. Näiteks kui elu on antud kuudes, tuleb periood anda ka kuudes. Kõik argumendid peavad olema positiivsed arvud.

Funktsioon DDB kasutab kindla perioodi amortisatsiooni arvutamiseks järgmist valemit:

Amortisatsioon / periood = ((maksumus – jääk) * tegur) / kestus

Näide

Selles näites kasutatakse funktsiooni DDB , et tagastada vara amortisatsioon määratud perioodil, võttes arvesse esialgset kulu (InitCost), jääkväärtust vara kasuliku tööea lõpus (SalvageVal), vara koguväärtust aastates (LifeTime) ja perioodi aastates, mille kohta amortisatsioon arvutatakse (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) & "."