Egy eszköz egy adott időszakra vonatkozó lineáris értékcsökkenését tartalmazó dupla értéket ad vissza.
Szintaxis
SLN( költség, maradványérték, élettartam )
Az SLN függvény argumentumai a következők:
|
argumentumok |
Leírás |
|
költség |
Megadása kötelező. Az eszköz kezdeti költségének dupla megadása. |
|
Megmenteni |
Megadása kötelező. Az objektum értékét a hasznos élettartam végén kétszer kell megadni. |
|
élettartam |
Megadása kötelező. Az objektum hasznos élettartamának hosszát kétszer kell megadni. |
Megjegyzések
Az értékcsökkenési időszakot ugyanabban az egységben kell kifejezni, mint az élettartamargumentum. Minden argumentumnak pozitív számnak kell lennie.
Példák lekérdezésre
|
Expression |
Eredmények |
|
SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample; |
A "LoanAmount" értékre értékelt eszköz értékcsökkenését adja vissza 10%-os maradványértékkel ("LoanAmount" szorozva 0,1-zel), figyelembe véve, hogy az eszköz hasznos élettartama 20 év. |
|
SELECT SLN([LoanAmount];0,20) AS SLDepreciation FROM FinancialSample; |
A "LoanAmount" értékre értékelt eszköz értékcsökkenését adja vissza 0 USD maradványértékkel, figyelembe véve, hogy az eszköz hasznos élettartama 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.
Ez a példa az SLN függvénnyel egy eszköz lineáris értékcsökkenését adja vissza egyetlen időszakra az eszköz kezdeti költsége (InitCost), az eszköz hasznos élettartamának végén lévő maradványérték (SalvageVal) és az eszköz teljes élettartama (LifeTime) alapján.
Dim Fmt, InitCost, SalvageValDim MonthLife, LifeTime, PDeprConst 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 IfPDepr = SLN(InitCost, SalvageVal, LifeTime)MsgBox "The depreciation is " & _ Format(PDepr, Fmt) & " per year."
