Atgriež Double vērtību, kas norāda aktīva lineāro amortizāciju vienā periodā.
Sintakse
SLN ( izmaksas, glābšana, dzīvība )
Funkcijā SLN ir šādi argumenti.
|
Arguments |
Apraksts |
|
izmaksas |
Obligāts. Double , kas norāda pamatlīdzekļa sākotnējās izmaksas. |
|
likvidācijas |
Obligāts. Double vērtība, kas norāda pamatlīdzekļa vērtību tā lietderīgās lietošanas laika beigās. |
|
kalpošanas |
Obligāts. Double norāda aktīva lietderīgās lietošanas laika ilgumu. |
Piezīmes
Nolietojuma periodam ir jābūt izteiktam tajā pašā vienībā, kas atbilst dzīvībasarguments. Visiem argumentiem jābūt pozitīviem skaitļiem.
Vaicājumu piemēri
|
Izteiksme |
Rezultāti |
|
ATLASIET SLN ([LoanAmount], [LoanAmount] *. 1, 20) kā Izteiksme1 no FinancialSample. |
Atgriež pamatlīdzekļa nolietojumu, kas novērtēts kā "LoanAmount", ar likvidācijas vērtību 10%("LoanAmount", kas reizināts ar 0,1), ņemot vērā līdzekļa lietderīgās izmantošanas laiku 20 gadus. |
|
ATLASIET SLN ([LoanAmount], 0, 20) kā SLDepreciation no FinancialSample. |
Atgriež pamatlīdzekļa nolietojumu, kas novērtēts kā "LoanAmount", ar $0 likvidācijas vērtību, ņemot vērā līdzekļa lietderīgās izmantošanas laiku 20 gadus. 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ā funkcija SLN tiek izmantota, lai atgrieztu aktīva lineāro amortizāciju par vienu periodu, ņemot vērā aktīva sākotnējās izmaksas (InitCost), likvidācijas vērtību aktīva lietderīgās lietošanas laika (SalvageVal) un kopējā kalpošanas laika gadā (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."
