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