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, 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."
