Applies ToMicrosoft 365 rakendus Access Access 2024 Access 2021 Access 2019 Access 2016

Tagastab väärtuse Kahekordne, mis määrab vara lineaarse amortisatsiooni ühe perioodi kohta.

Süntaks

SLN( maksumus, jääk, kestus )

Funktsioonil SLN 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.

Kommentaarid

Amortisatsiooniperiood tuleb väljendada samas ühikus kuiargument. Kõik argumendid peavad olema positiivsed arvud.

Päringu näited

Avaldis

Tulemid

SELECT SLN([Laenusumma],[Laenusumma]*.1;20) AS Avaldis1 FROM Finantsnäidik;

Tagastab väärtusega "Laenusumma" vara amortisatsiooni, mille jääkväärtus on 10%("Laenusumma" korrutatuna 0,1-ga), võttes arvesse, et vara kasulik tööiga on 20 aastat.

SELECT SLN([Laenusumma];0;20) AS SLDepreciation FROM FinancialSample;

Tagastab väärtusega "LoanAmount" vara amortisatsiooni jääkväärtusega 0 $, võttes arvesse, et vara kasulik tööiga on 20 aastat. Tulemid 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 , et tagastada vara lineaarne amortisatsioon ühe perioodi kohta, võttes arvesse vara algmaksumust (InitCost), jääkväärtust vara kasuliku tööea lõpus (SalvageVal) ja vara kogu tööiga aastates (LifeTime).

Dim Fmt, InitCost, SalvageValDim MonthLife, LifeTime, PDeprConst 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 IfPDepr = SLN(InitCost, SalvageVal, LifeTime)MsgBox "The depreciation is " & _       Format(PDepr, Fmt) & " per year."

Kas vajate veel abi?

Kas soovite rohkem valikuvariante?

Siin saate tutvuda tellimusega kaasnevate eelistega, sirvida koolituskursusi, õppida seadet kaitsma ja teha veel palju muud.

Kogukonnad aitavad teil küsimusi esitada ja neile vastuseid saada, anda tagasisidet ja saada nõu rikkalike teadmistega asjatundjatelt.