Funktsioon SYD

NB! :  See artikkel on masintõlgitud, vaadake lahtiütlust. Selle artikli ingliskeelse versiooni leiate aadressilt (viiteks).

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

Süntaks

SYD( maksumus, jääk, tööiga, periood )

Funktsiooni SYD süntaksil on järgmised argumendid.

Argument

Kirjeldus

maksumus

Nõutav. Topelttäpsusega arv, mis määrab vara algse maksumuse.

jääk

Nõutav. Topelttäpsusega arv, mis määrab vara väärtuse selle kasuliku tööea lõpus.

tööiga

Nõutav. Topelttäpsusega arv, mis määrab vara kasuliku tööea pikkuse.

periood

Nõutav. Topelttäpsusega arv määrab perioodi, mille kohta vara amortisatsioon arvutatakse.


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.

Näites kasutatakse funktsiooni SYD vara amortisatsiooni arvutamiseks määratud perioodil, kui antud on vara soetusmaksumus (InitCost), jääkväärtus vara kasuliku tööea lõpus (SalvageVal) ja vara kogutööiga aastates (LifeTime). Periood aastates, mille kohta amortisatsioon arvutatakse 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) & "."

Märkus. : Masintõlke lahtiütlus. Selle artikli tõlkis arvutisüsteem ilma inimese sekkumiseta. Microsoft pakub selliseid masintõlkeid, et inglise keelt mittekõnelevad kasutajad saaksid vaadata sisu Microsofti toodete, teenuste ja tehnoloogiate kohta. Kuna artikkel on masintõlgitud, võib see sisaldada sõnavara-, süntaksi- või grammatikavigu.

Täiendage oma 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.

×