Funktsioon DDB

Tagastab topeltandmetüüp, mis näitab topeltdegressiivsel amortisatsioonimeetodil või mõnel muul teie määratud meetodil arvutatud vara amortisatsiooni määratud perioodil.

Süntaks

DDB(maksumus, jääk, tööiga, periood [, tegur] )

Funktsiooni DDB süntaksil on järgmised argument:

Argument

Kirjeldus

maksumus

Nõutav. Kahekordne määrab vara algse maksumuse.

jääk

Nõutav. Kahekordne määrab vara väärtuse selle kasuliku tööea lõpus.

tööiga

Nõutav. Kahekordne määrab vara kasuliku tööea pikkuse.

periood

Nõutav. Kahekordne määrab perioodi, mille kohta vara amortisatsioon arvutatakse.

tegur

Valikuline. andmetüüp Variant määrab bilansi kahanemise määra. Kui variant puudub, eeldatakse, et see on 2 (topeltdegressiivne meetod).


Kommentaarid

Topeltdegressiivse amortisatsioonimeetodi puhul arvutatakse amortisatsioon kiirendatud tempos. Amortisatsioon on kõrgeim esimesel perioodil ja väheneb järgnevatel perioodidel.

Tööea ja perioodiargument peavad olema väljendatud samades ühikutes. Näiteks kui tööiga on antud kuudes, siis peab ka periood olema kuudes. Kõik argumendid peavad olema positiivsed arvud.

Funktsioon DDB kasutab määratud perioodi amortisatsiooni arvutamiseks järgmist valemit:

Amortisatsioon / periood = ((maksumusjääk) * tegur) / tööiga

Näide

Märkus.: Järgnevad näited on selle kohta, kuidas seda funktsiooni rakenduse Visual Basic for Applications (VBA) moodulis kasutada. Lisateavet VBA-ga töötamise kohta leiate, kui valite käsu Otsi kõrval olevast ripploendist valiku Arendaja viide ning sisestate otsinguväljale ühe või mitu sõna.

Näites kasutatakse funktsiooni DDB vara amortisatsiooni arvutamiseks määratud perioodil, kui antud on soetusmaksumus (InitCost), jääkväärtus vara kasuliku tööea lõpus (SalvageVal), vara kogutööiga aastates (LifeTime) ja periood 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) & "."
Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×