Egy tárgyi eszköz adott időszakra eső lineáris leírási kulcsát adja meg.
Szintaxis
LCSA(költség; maradványérték; leírási_idő)
Az LCSA függvény argumentumai a következők:
| Argumentum | Leírás: |
|---|---|
| költség | Kötelező megadni. Az eszköz kezdeti beszerzési költségének megadása duplán. |
| mentés | Kötelező megadni. Az eszköz értékét duplán adja meg a hasznos élettartama végén. |
| élet | Kötelező megadni. Az eszköz hasznos élettartamának hosszát duplán adja meg. |
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ésekre
| Expression (Kifejezés) | Eredmény: |
|---|---|
| SELECT SLN([LoanAmount];[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample; | Egy "LoanAmount" értékkel rendelkező eszköz értékcsökkenését adja eredményül 10% maradványértékkel ("LoanAmount" 0,1-gyel megszorozva), figyelembe véve az eszköz 20 éves hasznos élettartamát. |
| SELECT SLN([LoanAmount];0,20) AS SLDepreciation FROM FinancialSample; | Egy "LoanAmount" értékkel rendelkező eszköz értékcsökkenését adja eredményül 0 Ft maradványértékkel, figyelembe véve a tárgy 20 éves hasznos élettartamát. 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 LCSA függvényt használja egy eszköz lineáris értékcsökkenésének egy időszakra vonatkozóan, figyelembe véve az eszköz kezdeti beszerzési költségét (),InitCost az eszköz hasznos élettartamának végén érvényes maradmaradványértéket (SalvageVal) és az eszköz teljes élettartamát é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."