SYD függvény

Fontos : Ez a cikk gépi fordítással lett lefordítva, lásd a jognyilatkozatot. A cikk angol változatát itt találhatja meg.

A SZUM-évek számjegyek tárgyi eszköz adott időszak alatti értékcsökkenését tartalmazó dupla típusú adatot ad eredményül

Szintaxis

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

Az ÉSZÖ függvény szintaxisa alábbi 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.

időszak

Szükséges. Dupla időszak megadása melyik eszköz értékcsökkenését számítható ki.


Megjegyzések

A kifejezőképességnek , és az időszak argumentumok azonos egységekben kell megadni. Például ha leírási_idő hónapban, időszak kell is kell megadni hónapban. 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 ÉSZÖ függvény visszatérési eszköz értékcsökkenését számítja ki egy adott az eszköz költség (InitCost), a maradványérték végén található a tárgyi eszköz élettartama (SalvageVal), és a teljes az eszköz élettartama (év) (LifeTime) adott időszakra vonatkozóan. Az időszak (év), amelynek alatti értékcsökkenését számítja ki PDepr.

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) & "."

Megjegyzés : Gépi fordítás jognyilatkozata: Ez a cikk számítógép által, emberi közreműködés nélkül lett lefordítva. A Microsoft ezeket a gépi fordításokat azért nyújtja, hogy az angol nyelvet nem beszélők minél több tartalomhoz tudjanak hozzáférni a Microsoft termékeivel, szolgáltatásaival és technológiáival kapcsolatban. A gépi fordítás miatt előfordulhat, hogy a szöveg szóhasználati, szintaktikai vagy helyesírási hibákat tartalmaz.

Ismeretek 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.

×