Vraća dvostruku vrijednost koja određuje linearnu amortizaciju sredstva za jedno razdoblje.
Sintaksa
Sln ( trošak, spašavanje, život )
Funkcija sln sadrži sljedeće argumente:
|
Argument |
Opis |
|
trošak |
Obavezno. Dvostruko određivanje početnog troška imovine. |
|
likvidacija |
Obavezno. Double određuje vrijednost resursa na kraju svog životnog vijeka. |
|
život |
Obavezno. Dvostruko određuje duljinu životnog vijeka imovine. |
Napomene
Razdoblje amortizacije mora biti izraženo u istoj jedinici kao i životniargument. Svi argumenti moraju biti pozitivni brojevi.
Primjeri upita
|
Izraz |
Rezultati |
|
Odaberite SLN ([Loanbroj], [Loaniznos] *. 1, 20) kao |
Vraća amortizaciju za imovinu koja je cijenjena kao "Loanbroj", uz likvidacijsku vrijednost od 10% ("Loanbroj" pomnožen s 0,1), s obzirom na to da je životni vijek imovine 20 godina. |
|
Odaberite SLN ([Loaniznos]; 0; 20) kao amortizaciju iz financijskog uzorka; |
Vraća amortizaciju za imovinu koja je cijenjena kao "Loanbroj", uz likvidacijsku vrijednost $0, s obzirom na to da je koristan vijek trajanja imovine 20 godina. Rezultati se prikazuju u nastavku stupca. |
Primjer VBA
Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
U ovom se primjeru pomoću funkcije sln Vraća linearnu amortizaciju sredstva za jedno razdoblje s obzirom na početni trošak imovine (InitCost), likvidacijsku vrijednost na kraju korisnikovih životnih resursa (SalvageVal) i ukupni životni vijek resursa u godinama (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."
