SLN függvény

Megjegyzés: Szeretnénk, ha minél gyorsabban hozzáférhetne a saját nyelvén íródott súgótartalmakhoz. Ez az oldal gépi fordítással lett lefordítva, ezért nyelvtani hibákat és pontatlanságokat tartalmazhat. A célunk az, hogy ezek a tartalmak felhasználóink hasznára váljanak. Kérjük, hogy a lap alján írja meg, hogy hasznos volt-e az Ön számára az itt található információ. Az eredeti angol nyelvű cikket itt találja.

Egy adott időszakra vonatkozóan tárgyi eszköz amortizációját tartalmazó dupla típusú adatot ad eredményül

Szintaxis

LCSA ( költség, maradványérték, leírási_idő )

Az LCSA függvény a következő argumentumokat foglalja magában:

Argumentum

Leírás

költség

Szükséges. Dupla az eszköz költség megadása.

Maradványérték

Szükséges. Dupla hasznos élettartama végén az eszköz érték megadásával.

élettartam

Szükséges. Dupla az eszköz élettartama hosszának megadása.


Megjegyzések

Az értékcsökkenés időszak szerint az életargumentumazonos egységben kell megadni. Az összes argumentumnak pozitív számnak kell lennie.

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 LCSA függvény lineáris értékcsökkenését számítja ki tárgyi eszköz egy időszakra megadott az eszköz költség (InitCost), a végén található a tárgyi eszköz élettartama (SalvageVal), és a teljes futamideje maradványérték térni az Tárgyi eszköz (év) (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."
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ó?

Köszönjük a visszajelzését!

Köszönjük visszajelzését. Jobbnak látjuk, ha az Office egyik támogatási szakemberéhez irányítjuk.

×