Applies ToAccess for Microsoft 365 Access 2021 Access 2019 Access 2016

Palauttaa Double-arvon, joka määrittää resurssin tasapoiston yksittäiselle kaudelle.

Syntaksi

SLN( kustannus, loppuarvo, elinaika )

SLN-funktiolla on seuraavat argumentit:

Argumentti

Kuvaus

kustannus

Pakollinen. Kaksinkertainen , joka määrittää resurssin alkukustannukset.

Pelastaa

Pakollinen. Kaksinkertainen , joka määrittää resurssin arvon sen käyttöiän lopussa.

kesto

Pakollinen. Kaksoisarvo , joka määrittää resurssin käyttöiän pituuden.

Huomautuksia

Poistokausi on ilmaistava samana yksikkönä kuin elinkaarenargumentti. Kaikkien argumenttien on oltava positiivisia lukuja.

Esimerkkejä kyselystä

Lauseke

Tulokset

SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample;

Palauttaa poiston omaisuuserästä, jonka arvo on "LoanAmount", ja loppuarvo on 10 %("LoanAmount" kerrottuna 0,1:llä, kun otetaan huomioon, että hyödykkeen käyttöikä on 20 vuotta.

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

Palauttaa poiston omaisuuserälle, jonka arvo on "LoanAmount", ja loppuarvo on 0 $, kun otetaan huomioon, että hyödykkeen käyttöikä on 20 vuotta. Tulokset näkyvät sarakkeessa SLDepreciation.

VBA-esimerkki

Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.

Tässä esimerkissä SLN-funktiota käytetään palauttamaan resurssin tasapoisto yhden kauden ajalta, kun otetaan huomioon käyttöomaisuuserän alkuperäiset kustannukset (InitCost), sijoituksen käyttöiän lopussa oleva jäännösarvo (SalvageVal) ja sijoituksen kokonaiskesto vuosina (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."

Tarvitsetko lisäohjeita?

Haluatko lisää vaihtoehtoja?

Tutustu tilausetuihin, selaa harjoituskursseja, opi suojaamaan laitteesi ja paljon muuta.

Osallistumalla yhteisöihin voit kysyä kysymyksiä ja vastata niihin, antaa palautetta sekä kuulla lisää asiantuntijoilta, joilla on runsaasti tietoa.