Funktsioon SLN

NB! :  See artikkel on masintõlgitud, vaadake lahtiütlust. Selle artikli ingliskeelse versiooni leiate aadressilt (viiteks).

Tagastab kahekordne, mis määrab vara lineaarse kulumi ühe perioodi kohta.

Süntaks

SLN( maksumus, jääk, tööiga )

Funktsioon SLN on järgmised argumendid.

Argument

Kirjeldus

maksumus

Nõutav. Topelttäpsusega arv, mis määrab vara algse maksumuse.

jääk

Nõutav. Topelttäpsusega arv, mis määrab vara väärtuse selle kasuliku tööea lõpus.

tööiga

Nõutav. Topelttäpsusega arv, mis määrab vara kasuliku tööea pikkuse.


Kommentaarid

Amortisatsiooniperiood peab olema esitatud samades ühikutes, kui argumenttööiga. Kõik argumendid peavad olema positiivsed arvud.

Näited

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.

Näites kasutatakse funktsiooni SLN vara lineaarse amortisatsiooni arvutamiseks kindlal perioodil, kui antud on vara soetusmaksumus (InitCost), jääkväärtus vara kasuliku tööea lõpus (SalvageVal) ja vara kogutööiga aastates (LifeTime).

Dim Fmt, InitCost, SalvageVal
Dim MonthLife, LifeTime, PDepr
Const YEARMONTHS = 12 ' Number of months in a year.
Fmt = "###,##0.00" ' Define money format.
InitCost = InputBox("What's the initial cost " & _
"of the asset?")
SalvageVal = InputBox("What's the asset's value " & _
"at the end of its useful life?")
MonthLife = InputBox("What's the asset's useful " & _
"life in months?")
' Ensure period is >= 1 year.
Do While MonthLife < YEARMONTHS
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's " & _
"useful life in months?")
Loop
' Convert months to years.
LifeTime = MonthLife / YEARMONTHS
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
' Round up to nearest year.
LifeTime = Int(LifeTime + 1)
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
Format(PDepr, Fmt) & " per year."

Märkus. : Masintõlke lahtiütlus. Selle artikli tõlkis arvutisüsteem ilma inimese sekkumiseta. Microsoft pakub selliseid masintõlkeid, et inglise keelt mittekõnelevad kasutajad saaksid vaadata sisu Microsofti toodete, teenuste ja tehnoloogiate kohta. Kuna artikkel on masintõlgitud, võib see sisaldada sõnavara-, süntaksi- või grammatikavigu.

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.

×