SYD-funktio

Tärkeää: Tämä on artikkeli on käännetty koneellisesti. Lue vastuuvapauslauseke. Tämän artikkelin englanninkielinen versio on täällä .

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

Syntaksi

SYD( kustannus, loppuarvo, aika, ajanjakso )

Vuosipoisto -funktiosyntaksissa on seuraavat argumentit:

Argumentti

Kuvaus:

kustannus

Pakollinen. Kaksinkertainen, joka määrittää sijoituksen alkuperäisen hankintahinnan.

loppuarvo

Pakollinen. Kaksinkertainen, joka määrittää sijoituksen arvon sen käyttöajan lopussa.

aika

Pakollinen. Kaksinkertainen, joka määrittää sijoituksen käyttöajan pituuden.

ajanjakso

Pakollinen. Kaksinkertainen, joka määrittää ajanjakson, jolle sijoituksen poisto lasketaan.


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ä SYD-funktion avulla palautetaan sijoituksen vuosipoisto annettuna ajanjaksona. Annettuna on sijoituksen alkuperäinen hankintahinta (InitCost), jäännösarvo sijoituksen käyttöiän lopussa (SalvageVal) ja sijoituksen kokonaisikä vuosissa (LifeTime). Ajanjakso vuosissa, jolle poisto lasketaan 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) & "."

Huomautus: Konekäännöksestä ilmoittava vastuusvapauslauseke: Tämä artikkeli on käännetty tietokonejärjestelmällä, eikä kieliasiantuntija ole muokannut sitä. Microsoft tarjoaa nämä konekäännökset avuksi muille kuin englantia puhuville käyttäjille, jotta he saavat lisätietoja Microsoftin tuotteista, palveluista ja tekniikoista. Koska artikkeli on koneellisesti käännetty, se saattaa sisältää sanasto-, lauseoppi- ja kielioppivirheitä.

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

×