SLN függvény

Egy eszköz lineáris értékcsökkenését számítja ki egy adott időszakra.

Szintaxis

SLN ( költség, maradványérték, élet )

A SLN függvény argumentumai a következők:

argumentumok

Leírás

költség

Kötelező megadni. Duplán adja meg az eszköz kezdeti költségét.

maradványérték

Kötelező megadni. Duplán adja meg az eszköz értékét a hasznos élettartam végén.

élet

Kötelező megadni. Duplán adja meg az eszköz hasznos élettartamát.

Megjegyzések

Az értékcsökkenési időszakot ugyanabban az egységben kell megadni, mint a lifeargumentum. Minden argumentumnak pozitív számnak kell lennie.

Lekérdezési példák

Kifejezés

Eredmény:

Válassza a SLN ([LoanAmount], [LoanAmount] *. 1, 20) parancsot a Kif1-től kezdve a FinancialSample;

Egy "LoanAmount" értékre értékelt eszköz értékcsökkenését számítja ki, a 10%-os "LoanAmount" értékkel megszorozva a 0,1), figyelembe véve, hogy az eszköz hasznos élettartama 20 év.

Válassza a SLN ([LoanAmount], 0, 20) SLDepreciation a FinancialSample-től;

A "LoanAmount" értékre értékelt eszköz értékcsökkenését számítja ki a $0 maradványérték értékével, figyelembe véve, hogy az eszköz hasznos élettartama 20 év. A találatok megjelennek az oszlop SLDepreciation.

Példa VBA-ként

Megjegyzés: A következő példák egy Visual Basic for Applications (VBA) modulban mutatják be a függvény használatát. A VBA használatáról a Keresés elem mellett található legördülő listából a fejlesztői forrásokat választva, majd egy vagy több keresőszót megadva kaphat további tájékoztatást.

Ez a példa a SLN függvénnyel visszaadja egy eszköz lineáris értékcsökkenését egy adott időszakra vonatkozóan, az eszköz eredeti költségével (InitCost), az eszköz hasznos élettartamának végén (SalvageVal), valamint az eszköz teljes élettartamát évek (LifeTime) segítségével.

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

Megjegyzés:  Ez az oldal gépi fordítással lett lefordítva, ezért nyelvtani hibákat és pontatlanságokat tartalmazhat. A célunk az, hogy ezek a tartalmak felhasználóink hasznára váljanak. Hasznos volt ez az információ az Ön számára? Itt találja az eredeti angol nyelvű cikket.

Office-jártasság bővítése
Oktatóanyagok megismerése
Új szolgáltatások listájának lekérése
Részvétel az Office Insider programban

Hasznos volt az információ?

Köszönjük a visszajelzését!

Köszönjük visszajelzését. Jobbnak látjuk, ha az Office egyik támogatási szakemberéhez irányítjuk.

×