Funktsioon SLN

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

Süntaks

SLN ( maksumus, jääk, kestus )

Funktsioon SLN on järgmised argumendid.

Argument

Kirjeldus

kulu

– nõutav. Kahekordne määrab vara esialgne maksumus.

Jääk

– nõutav. Kahekordne määrab vara kasulik tööiga selle lõpus väärtuse.

Kestus

– nõutav. Kahekordne määrab vara kasulik tööiga pikkus.

Kommentaarid

Sama nimega eluargumentüksuse ühik perioodi amortisatsioon. Kõik argumendid peavad olema positiivsed arvud.

Päringu näited

Avaldis

Tulemid

Valige SLN([LoanAmount],[LoanAmount]*.1,20) AS Avaldis1 FinancialSample;

Annab vastuseks vara kulumi väärtust "LoanAmount", kui jääk väärtus on 10% ("LoanAmount" korrutatuna 0,1), võttes arvesse kasulik tööiga varade 20 aastat.

Valige SLN([LoanAmount],0,20) AS SLDepreciation FinancialSample;

Annab vastuseks kulumi vara hinnatud "LoanAmount", jääk väärtus $ 0, arvestades kasulik tööiga varade 20 aastat. Tulemused kuvatakse veerus SLDepreciation.

VBA 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 SLN tagastamiseks vara lineaarse kulumi ühe perioodi antud vara esialgne maksumus (InitCost) jääkväärtus vara kasulik eluea (SalvageVal) ja total elu lõpus on varade aasta (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.:  See leht on tõlgitud automaatselt ning sellel võib leiduda grammatikavigu ja ebatäpsusi. Tahame, et sellest sisust oleks teile abi. Andke meile teada, kui see teave oli teile abiks. Soovi korral saate ingliskeelset artiklit lugeda siit.​

Täiendage Office'i kasutamise 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.

×