Funkcija SLN

Atgriež datu tipu Double, kas norāda līdzekļa lineāro nolietojumu vienā periodā.

Sintakse

SLN(vērtība, likvidācijas_vērt, kalpošanas_laiks)

Funkcijai SLN ir šādi argumenti:

Arguments	Apraksts
izmaksas	Obligāts arguments. Double , kas norāda līdzekļa sākotnējo vērtību.
Likvidācija	Obligāts arguments. Dubults , kas norāda līdzekļa vērtību pēc tā lietderīgās lietošanas laika beigām.
darbības laiks	Obligāts arguments. Dubults , norādot līdzekļa lietderīgās lietošanas laika ilgumu.

Piezīmes

Nolietojuma periods ir jāizsaka vienā mērvienībā kā kalpošanas laikaarguments. Visiem argumentiem jābūt pozitīviem skaitļiem.

Vaicājumu piemēri

Izteiksme	Rezultāti
SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample;	Atgriež tāda līdzekļa nolietojumu, kura vērtība ir "LoanAmount" ar lūžņu vērtību 10%("LoanAmount" reizināts ar 0,1), ņemot vērā, ka līdzekļa lietderīgās lietošanas laiks ir 20 gadi.
SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample;	Atgriež nolietojumu aktīvam, kura vērtība ir "LoanAmount" ar lūžņu vērtību 0 $, ņemot vērā, ka līdzekļa lietderīgās lietošanas laiks ir 20 gadi. Rezultāti tiek parādīti kolonnā SLDepreciation.

VBA piemērs

Šajā piemērā izmantota funkcija SLN , lai atgrieztu aktīva lineāro nolietojumu vienā periodā, ja tiek norādītas līdzekļa sākotnējās izmaksas (InitCost), lūžņu vērtība pēc līdzekļa lietderīgās lietošanas laika (SalvageVal) un aktīva kopējais kalpošanas laiks gados (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."