Funkcija SLN

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."

Napomena:  Ova je stranica strojno prevedena te može sadržavati gramatičke pogreške ili netočnosti. Naša je namjera da vam ovaj sadržaj bude koristan. Jesu li vam te informacije bile korisne? Kao referencu možete pogledati i članak na engleskom jeziku.​

Proširite svoje vještine korištenja sustava Office
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×