Funkcija SLN

Pomembno : Besedilo članka je prevedeno strojno. Glejte zavrnitev odgovornosti. Angleško različico tega članka najdete tukaj .

Vrne podatek tipa Dvojno oz. linearno amortizacijo sredstva v določenem obdobju.

Sintaksa

SLN( cena, rešenavrednost, življenjskadoba )

Funkcija SLN so ti argumenti:

Argument

Opis

cena

Zahtevano. Podatkovni tip Število z dvojno natančnostjo, ki navaja začetno ceno sredstva.

rešenavrednost

Zahtevano. Podatkovni tipŠtevilo z dvojno natančnostjo, ki navaja vrednost na koncu življenjske dobe sredstva.

življenjskadoba

Zahtevano. Število z dvojno natančnostjo, ki določa trajanje življenjske dobe sredstva.


Opombe

Amortizacijska doba mora biti izražena v enaki enoti kot argumentživljenjskadoba. Vsi argumenti 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 funkcija SLN vrne ravno amortizacijo sredstva za eno obdobje. Podani so: začetna cena sredstva (InitCost), preostala vrednost na koncu življenjske dobe sredstva (SalvageVal) in celotna življenjska doba 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."

Opomba : Strojni prevod – zavrnitev odgovornosti: Ta članek je bil preveden z računalniškim programom brez človeškega posredovanja. Microsoft skuša s strojno prevedenimi članki vsebino o Microsoftovih izdelkih, storitvah in tehnologijah približati osebam, ki ne razumejo angleščine. Ker je bil članek strojno preveden, so lahko v njem jezikovne, slovnične in pravopisne napake.

Razširite svoja znanja
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.

×