Palauttaa kaksinkertaisen arvon, joka määrittää sijoituksen tasapoiston yhdeltä kaudelta.
Syntaksi
STP(kustannus; loppuarvo; aika)
STP-funktiolla on seuraavat argumentit:
| Argumentti | Kuvaus |
|---|---|
| Kustannukset | Pakollinen. Double määrittää resurssin alkuperäisen hankintamennon. |
| Pelastus | Pakollinen. Kaksinkertainen sijoituksen arvo sen käyttöiän lopussa. |
| elämä | Pakollinen. Double määrittää investoinnin käyttöiän pituuden. |
Huomautuksia
Poistokausi on ilmaistava samassa yksikössä kuin aikaargumentti. Kaikkien argumenttien on oltava positiivisia lukuja.
Esimerkkejä kyselyistä
| Lauseke | Tulokset |
|---|---|
| SELECT SLN([Lainasumma],[Lainasumma]*.1,20) AS Lauseke1 FROM FinancialSample; | Palauttaa poiston sijoitukselle, jonka arvo on Lainasumma, jäännösarvo 10 % ("Lainasumma" kerrottuna 0,1:llä) arvioiden investoinnin käyttöiän olevan 20 vuotta. |
| SELECT SLN([LoanAmount];0;20) AS SLDepreciation FROM FinancialSample; | Palauttaa poiston sijoitukselle, jonka arvo on Lainasumma, jäännösarvo 0 euroa, kun investoinnin 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ä STP-funktion avulla palautetaan sijoituksen tasapoisto yhdeltä kaudelta, kun otetaan huomioon sijoituksen alkuperäinen hankintameno (InitCost), jäännösarvo sijoituksen käyttöajan lopussa (SalvageVal) ja investoinnin koko käyttöaika 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."