Office
Vpis

Funkcija SLN

Opomba: Najnovejšo vsebino pomoči v vašem jeziku vam želimo zagotoviti v najkrajšem možnem času. Ta stran je bila prevedena z avtomatizacijo in lahko vsebuje slovnične napake ali nepravilnosti. Naš namen je, da bi bila vsebina za vas uporabna. Ali nam lahko na dnu te strani sporočite, ali so bile informacije za vas uporabne? Tukaj je angleški članek za preprosto referenco.

Vrne dvojno navaja linearno razvrednotenje osnovnega sredstva za eno obdobje.

Sintaksa

SLN ( stroški, vrednost_po_amor, št_obdobij )

Funkcija SLN so ti argumenti:

Argument

Opis

stroški

Zahtevano. Dvojni določite začetni stroški sredstva.

amortizacija

Zahtevano. Dvojni navede vrednost sredstva na koncu njegove življenjske dobe.

življenje

Zahtevano. Dvojno določanje dolžine uporabnosti sredstva.


Opombe

Amortizacija v obdobju mora biti izražena v isti enoti kot življenjeargument. Vsi argumenti se morajo biti pozitivna števila.

Primer

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 uporabi funkcija SLN vrne linearno razvrednotenje osnovnega sredstva za eno obdobje, glede na sredstva začetni stroški (InitCost), preostala vrednost na koncu življenjske dobe sredstva (SalvageVal) in skupna življenjska doba v 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."
Razširite poznavanje Officea
Oglejte si izobraževanje
Prvi dobite nove funkcije
Pridružite se programu Office Insider

Vam je bila informacija v pomoč?

Zahvaljujemo se vam za povratne informacije.

Zahvaljujemo se vam za povratne informacije. Videti je, da bi vam prišla prav pomoč enega od naših Officeovih agentov za podporo.

×