Office
Kirjaudu sisään

SYD-funktio

Huomautus: Microsoft haluaa tarjota sinulle ajantasaisinta ohjesisältöä mahdollisimman nopeasti omalla kielelläsi. Tämä sivu on käännetty automaation avulla, ja siinä saattaa olla kielioppivirheitä tai epätarkkuuksia. Tarkoitus on, että sisällöstä on sinulle hyötyä. Kertoisitko sivun alareunassa olevan toiminnon avulla, oliko tiedoista hyötyä? Tästä pääset helposti artikkelin englanninkieliseen versioon.

Palauttaa tietotyypin kaksinkertainen, joka määrittää sum-of-Year 's digits poiston amerikkalaisen vuosipoiston annettuna kautena.

Syntaksi

Vuosipoisto ( kustannukset, loppuarvo, aika, kauden )

Vuosipoisto -funktiosyntaksissa on seuraavat argumentit:

Argumentti

Kuvaus

kustannus

Pakollinen. Kaksinkertainen kohteen kustannus.

loppuarvo

Pakollinen. Kaksinkertainen sen käyttöikä lopussa kohteen arvo.

aika

Pakollinen. Kaksinkertainen kohteen käyttöikä pituuden.

piste

Pakollinen. Kaksinkertainen ajan, joka määrittää, mitkä annetaan lasketaan poisto.


Huomautuksia

Piste - ja -argumentit on ilmaistava samoina. Esimerkiksi jos aika on annettu kuukausina, kausi on annettava myös kuukausina. Kaikkien argumenttien on oltava positiivisia lukuja.

Esimerkki

Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.

Tässä esimerkissä käytetään vuosipoisto -funktio palauttaa poiston amerikkalaisen ajanjaksona kohteen kustannus (InitCost), loppuarvo kohteen käyttöikä (SalvageVal) ja annetaan yhteensä elinkaaren lopussa vuosi (LifeTime). Kausi, jonka poisto lasketaan vuoden 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) & "."
Kehitä Office-taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin

Oliko näistä tiedoista hyötyä?

Kiitos palautteesta!

Kiitos palautteestasi! Näyttää siltä, että Office-tukiedustajamme avusta voi olla sinulle hyötyä.

×