Funkcija SLN

Vrne dvojno število, ki določa linearno amortizacijo sredstva za eno obdobje.

Sintaksa

SLN ( stroški, reševanje, življenje )

Funkcija SLN ima te argumente:

Argument

Opis

strošek

Obvezen. Dvojna določitev začetnih stroškov sredstva.

reševanje

Obvezen. Dvojno določanje vrednosti sredstva ob koncu njegove dobe koristnosti.

življenje

Obvezen. Dvojno določanje dolžine dobe koristnosti sredstva.

Opombe

Obdobje amortizacije mora biti izraženo v isti enoti kot življenjskoargument. Vsi argumenti morajo biti pozitivna števila.

Primeri poizvedbe

Izraz

Rezultati

Izberite SLN ([LoanAmount], [LoanAmount] *. 1, 20) kot Izr1 iz FinancialSample;

Vrne amortizacijo za sredstvo, ki je ovrednoteno kot» LoanAmount «, z odpadno vrednostjo 10%(» LoanAmount «, pomnoženo s 0,1), ob upoštevanju dobe koristnosti sredstva za 20 let.

Izberite SLN ([LoanAmount], 0, 20) kot SLDepreciation iz FinancialSample;

Vrne amortizacijo za sredstvo, ki je ovrednoteno kot» LoanAmount «, z odpadno vrednostjo $0, upoštevajoč uporabno življenjsko dobo sredstva za 20 let. Rezultati so prikazani v stolpcu SLDepreciation.

Primer VBA

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 je uporabljena funkcija SLN za vrnitev linearne amortizacije sredstva za eno obdobje, ki je posledica začetnega stroška sredstva (InitCost), odpadne vrednosti na koncu dobe koristnosti sredstva (SalvageVal) in skupnega življenjskega obdobja 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:  Ta stran je bila prevedena z avtomatizacijo in lahko vsebuje slovnične napake ali nepravilnosti. Želimo, da bi bila ta vsebina za vas uporabna. Ali nam lahko sporočite, če so bile te informacije uporabne? Tukaj je referenčni članek v angleščini.

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.

×