SLN függvény

Egy double értéket ad eredményül, amely egy eszköz egy adott időszakra vonatkozó értékcsökkenését adja meg.

Szintaxis

SLN( költség; visszaszámítás; élettartam )

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

argumentumok

Leírás

költség

Kötelező megadni. Double specifying initial cost of the asset.

salvage

Kötelező megadni. Double specifying value of the asset at end of its useful life.

life

Kötelező megadni. Double specifying length of the useful life of the asset.

Megjegyzések

Az értékcsökkenési időszaknak ugyanabban a egységben kell kifejezve lennie, mint a leírási argumentum. Minden argumentumnak pozitív számnak kell lennie.

Példák lekérdezésre

Kifejezés

Eredmény:

SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample;

A "LoanAmount" értékben megadott eszköz értékcsökkenését számítja ki, 10%-os leírási értékkel ("Kölcsön" megszorozva 0,1 értékkel), figyelembe véve, hogy az eszköz hasznos életciklusa 20 év.

SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample;

A "LoanAmount" értékben megadott eszköz értékcsökkenését számítja ki 0 Ft értékkel, figyelembe véve, hogy az eszköz hasznos életciklusa 20 év. Az eredmények az SLDepreciation oszlopban jelennek meg.

VBA-példa

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.

Ebben a példában az SLN függvény az eszköz értékcsökkenését számítja ki egy adott időszakra az eszköz kezdeti költségének (InitCost), a leírási értéknek az eszköz hasznos élettartamának végén (SalvageVal) és az eszköz teljes életciklusát év alatt (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."

További segítségre van szüksége?

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ó?

×