SLN-funktio

Palauttaa double-arvon, joka määrittää kalustoryhmän tasapoiston yhden kauden ajalta.

Syntaksi

SLN( kustannus; loppuarvo; kesto )

SLN-funktiolla on seuraavat argumentit:

Argumentti

Kuvaus

kustannus

Pakollinen. Kalusto-kaluston alkuperäinen kustannus määritetään kaksinkertaisiksi.

loppuarvo

Pakollinen. Kaksinkertainen kalustoryhmän arvo kaluston käyttöajan lopussa.

life

Pakollinen. Kaksinkertainen arvo, joka määrittää kalustoryhmän käyttöajan pituuden.

Huomautuksia

Poistokausi on ilmaistava samalla yksikössä kuinargumentti. Kaikkien argumenttien on oltava positiivisia lukuja.

Kyselyesimerkkejä

Lauseke

Tulokset

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

Palauttaa "LoanAmount"-arvona olevan kalustoerän poiston, jonka loppuarvo on 10 %("LoanAmount" kerrottuna 0,1:llä), kun otetaan huomioon 20 vuoden käyttöikä.

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

Palauttaa "LoanAmount"-arvona olevan kalustoerän poiston, jonka loppuarvo on 0 $, kun otetaan huomioon 20 vuoden käyttöaika. Tulokset näytetään 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 kaluston tasapoiston palauttamiseen yhden kauden ajalta, kun kalustoryhmän alkuperäinen kustannus (InitCost), kalustoryhmän käyttöajan lopussa (SalvageVal) ja kalustoryhmän kokonaisaika 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."

Tarvitsetko lisäohjeita?

Kehitä Office-taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin