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:
| Argumentum | Leírás: |
|---|---|
| Költség | Kötelező megadni. Az eszköz kezdeti költségének dupla megadása. |
| Megmenteni | Kötelező megadni. Az objektum értékét a hasznos élettartam végén kétszer kell megadni. |
| Élet | Kötelező megadni. 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 élettartamargumentumot. 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é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 bekerülési értéke (InitCost), a maradványérték az eszköz hasznos élettartama végén (SalvageVal) és az eszköz teljes élettartama években (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."