Funktsioon SYD

Märkus.: Soovime pakkuda teie keeles kõige ajakohasemat spikrisisu niipea kui võimalik. See leht on tõlgitud automaatselt ja sellel võib leiduda grammatikavigu või ebatäpsusi. Tahame, et sellest sisust oleks teile abi. Palun märkige selle lehe allservas, kas sellest teabest oli teile kasu või mitte. Soovi korral saab ingliskeelset artiklit lugeda siit.

Tagastab kahekordne, mis määrab vara kumulatiivse amortisatsiooni määratud perioodi kohta.

Süntaks

SYD ( maksumus, jääk, kestus, periood )

Funktsiooni SYD süntaksil on järgmised argumendid.

Argument

Kirjeldus

kulu

Nõutav. Kahekordne määrab vara esialgne maksumus.

Jääk

Nõutav. Kahekordne määrab vara kasulik tööiga selle lõpus väärtuse.

Kestus

Nõutav. Kahekordne määrab vara kasulik tööiga pikkus.

perioodi kohta.

Nõutav. Millist vara arvutatakse kahekordseks määrab perioodi amortisatsioon.


Kommentaarid

Sama üksuste ühik elavamaks ja perioodi argumendid. Näiteks kui kuudes kestus , periood ka tuleb kuudes. Kõik argumendid peavad olema positiivsed arvud.

Näide

Märkus.: Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.

Selles näites kasutatakse funktsiooni SYD Tagastab vara amortisatsiooni määratud perioodil antud vara esialgne maksumus (InitCost) jääkväärtus vara kasulik eluea (SalvageVal) ja total elu vara lõpus aastat (LifeTime). Aasta, mille jaoks arvutatakse amortisatsioon on 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) & "."
Täiendage Office'i kasutamise oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×