Vraća dvostruki broj koji navodi linearnu amortizaciju materijalnih sredstava za jedan period.
Sintaksa
SLN( cena, rashod, vek )
Funkcija SLN ima sledeće argumente:
|
Argument |
Opis |
|
trošak |
Obavezno. Double koji navodi početnu cenu imovine. |
|
Spasiti |
Obavezno. Double koji navodi vrednost imovine na kraju korisnog životnog veka. |
|
Ћivot |
Obavezno. Double koji navodi dužinu korisnog veka imovine. |
Napomene
Period amortizacije mora biti izražen u istoj jedinici kao period trajanjaargument. Svi argumenti moraju biti pozitivni brojevi.
Primeri upita
|
Izraz |
Rezultati |
|
SELECT SLN([Iznos Kredita],[Iznos Kredita]*.1,20) AS Izraz1 OD finansijskog resamera; |
Daje amortizaciju za sredstva koja se procenjuju kao "Iznos Kredita", sa rashodovanom vrednošću od 10%("Iznos Kredita" pomnoženom sa 0,1), uzimajući u obzir korisni vek imovine u trajanju od 20 godina. |
|
SELECT SLN([Iznos Kredita],0,20) KAO SLD amortizacija OD finansijskog uzoraka; |
Daje amortizaciju za sredstva koja se procenjuju kao "Iznos Kredita" sa rashodovanom vrednošću od 0 DIN, uzimajući u obzir korisni vek imovine u trajanju od 20 godina. Rezultati se prikazuju u koloni SLDepreciation. |
VBA primer
Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Ovaj primer koristi funkciju SLN za vraćanje linearne amortizacije materijalnih sredstava za jedan period kada je data početna cena imovine (InitCost), vrednost rashoda na kraju korisnog veka sredstva (SalvageVal) i ukupan životni vek materijalnih sredstava u godinama (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."
