Funkcija „SLN“

Napomena: Želimo da vam što pre pružimo najnoviji sadržaj pomoći čim na vašem jeziku. Ova stranica je prevedena automatski i može da sadrži gramatičke greške ili netačnosti. Naš cilj je da ovaj sadržaj bude koristan. Možete li nam na dnu ove stranice saopštiti da li su vam informacije bile od koristi? Ovo je članak na engleskom jeziku za brzu referencu.

Daje duplu koji određuje linearnu amortizaciju materijalnih sredstava za jedan period.

Sintaksa

SLN ( cena, rashod, vek )

Funkcija SLN ima sledeće argumente:

Argument

Opis

trošak

Obavezno. Dvostruka navesti nabavna cena materijalnih sredstava.

rashod

Obavezno. Dvostruka koji određuje vrednost osnovnog na kraju njegove korisni vek materijalnih sredstava.

korisni vek

Obavezno. Dvostruka navođenje dužine korisni vek materijalnih sredstava.


Primedbe

Amortizacija mora biti izražen u istoj jedinici kao životargument. Svi argumenti moraju biti pozitivni brojevi.

Primer

Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Ako vam je potrebno više informacija o radu sa VBA modulom, izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite jedan ili više termina u polje za pretragu.

Ovaj primer koristi funkciju SLN da biste se vratili na linearnu amortizaciju materijalnih sredstava za jedan period s obzirom na nabavna cena (InitCost), Likvidaciona vrednost na kraju osnovnog korisni vek (SalvageVal) i ukupan životni vek na sredstava 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."
Razvijte Office veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Office Insider korisnicima

Da li su vam ove informacije koristile?

Hvala vam na povratnim informacijama!

Hvala za povratne informacije! Zvuči da će biti od pomoći ako vas povežemo sa našim agentima Office podrške.

×