Vrne dvojno število, ki določa linearno amortizacijo sredstva za eno obdobje.
Sintaksa
SLN( stroški, vrednost_po_amor, št_obdobij, št_obdobij )
Funkcija SLN ima te argumente:
Argument |
Opis |
strošek |
Obvezen. Dvojno število, ki določa začetno ceno sredstva. |
Odpadna |
Obvezen. Dvojno število, ki določa vrednost sredstva na koncu njegove življenjske dobe. |
čas delovanja |
Obvezen. Dvojno število, ki določa dolžino življenjske dobe sredstva. |
Opombe
Amortizacijsko obdobje mora biti izraženo v isti enote kotargument. Vsi argumenti morajo biti pozitivna števila.
Primeri poizvedb
Izraz |
Rezultati |
SELECT SLN([Znesek_posojila],[Znesek_posojila]*.1,20) AS Expr1 FROM FinancialSample; |
Vrne amortizacijo za sredstvo, ki je pomnoženo kot »Znesek_posojila«, z vrednostjo_po_amor 10 %(»Znesek_posojila« pomnoženo z 0,1) glede na to, da je življenjska doba sredstva 20 let. |
SELECT SLN([Znesek_posojila],0,20) KOT SLDepreciation FROM FinancialSample; |
Vrne amortizacijo za sredstvo, ki je v vrednosti »LoanAmount« s preostalo vrednostjo 0 $, glede na to, da je življenjska doba sredstva 20 let. Rezultati so prikazani v stolpcu SLDepreciation. |
primer VBA
Opomba: V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.
V tem primeru je uporabljena funkcija SLN za vrnitev linearne amortizacije sredstva za eno obdobje, če je bila vrnjena začetna cena sredstva (InitCost), preostala vrednost na koncu življenjske dobe sredstva (SalvageVal) in skupna življenjska doba sredstva v letih (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."