Atgriež Double vērtību, kas norāda aktīva lineāro amortizāciju 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. Dubulta vērtība, kas norāda līdzekļa sākotnējo vērtību. |
|
likvidācijas_vērt |
Obligāts arguments. Dubulta vērtība, kas norāda līdzekļa vērtību tā ekspluatācijas laika beigās. |
|
darbības laiks |
Obligāts arguments. Dubulta vērtība, kas norāda līdzekļa ekspluatācijas laika ilgumu. |
Piezīmes
Nolietojuma periods jānorāda tajā pašā vienībā, kurā ir kalpošanas_laiksarguments. 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ž nolietojumu līdzeklim, kas novērtēts kā "LoanAmount", ar lūžņu vērtību 10%("LoanAmount", kas reizināts ar 0,1), ņemot vērā līdzekļa lietderīgo mūžu kā 20 gadus. |
|
SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; |
Atgriež aktīva, kas novērtēts kā "LoanAmount" vērtību, amortizāciju ar lūžņu vērtību 0 $, ņemot vērā līdzekļa ekspluatācijas laiku pēc 20 gadiem. Rezultāti tiek parādīti kolonnā SLDepreciation. |
VBA piemērs
Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.
Šajā piemērā tiek izmantota funkcija SLN , lai atgrieztu aktīva lineāro nolietojumu vienā periodā, ņemot vērā līdzekļa sākotnējās izmaksas (InitCost), līdzekļa lūžņu vērtību līdzekļa ekspluatācijas laika beigās (SalvageVal) un līdzekļa kopējo nomu gados (LifeTime).
Dim Fmt, InitCost, SalvageValDim MonthLife, LifeTime, PDeprConst 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 IfPDepr = SLN(InitCost, SalvageVal, LifeTime)MsgBox "The depreciation is " & _ Format(PDepr, Fmt) & " per year."
