ÉSZÖ függvény

Egy tárgyi eszköz értékcsökkenését adja meg az évek számjegyösszegével dolgozó módszer alapján, adott időszakra eső értékcsökkenését adja eredményül.

Szintaxis

ÉSZÖ(költség; maradványérték; leírási_idő; időszak)

Az ÉSZÖ függvény szintaxisa az alábbi argumentumokat foglalja magában:

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.
időszak	Kötelező megadni. Dupla típusú érték, amely azt az időszakot adja meg, amelyre az eszköz értékcsökkenését számítja a rendszer.

Megjegyzések

Az élettartam és a periódus argumentumot azonos egységben kell kifejezni. Például, ha az életet hónapokban adják meg, akkor a időszakot is hónapokban kell megadni. Minden argumentumnak pozitív számnak kell lennie.

Példák lekérdezésekre

Expression (Kifejezés)	Eredmény:
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) AS Expr1 FROM FinancialSample;	Egy "LoanAmount" értékkel rendelkező eszköz értékcsökkenését számítja ki 10%-os maradványértékkel ("LoanAmount" 0,1-gyel megszorozva), figyelembe véve, hogy az eszköz hasznos élettartama 20 év. Az értékcsökkenést a második évre számolja ki a program.
SELECT SYD([LoanAmount],0,20,3) 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. Az értékcsökkenést a harmadik évre számolja ki a program.

VBA-példa

Ebben a példában az ÉSZÖ függvény egy eszköz értékcsökkenését kaphatja meg egy adott 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 maradandó értéket (SalvageVal), valamint az eszköz teljes élettartamát években ().LifeTime Az értékcsökkenés kiszámításának PDepridőszaka években .

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, 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 life?")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YEARMONTHS    ' Ensure period is >= 1 year.
    MsgBox "Asset life must be a year or more."
    MonthLife = InputBox("What's the asset's useful life in months?")
Loop
LifeTime = MonthLife / YEARMONTHS    ' Convert months to years.
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
    LifeTime = Int(LifeTime + 1)    ' Round up to nearest year.
End If 
DepYear = CInt(InputBox("For which year do you want depreciation?"))
Do While DepYear < 1 Or DepYear > LifeTime
    MsgBox "You must enter at least 1 but not more than " & LifeTime
    DepYear = CInt(InputBox("For what year do you want depreciation?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."