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. |
|
tööiga |
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
Märkus.: Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.
Selles näites kasutatakse funktsiooni DDB , et tagastada vara amortisatsioon määratud perioodil, kui on antud algmaksumus (InitCost), jääkväärtus vara kasuliku tööea lõpus (SalvageVal), vara kogukestus aastates (LifeTime) ja periood aastates , mille kohta amortisatsioon arvutatakse (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) & "."
