SYD-funktio

Palauttaa Double-arvon, joka määrittää sijoituksen vuosipoiston annettuna kautena amerikkalaisen SYD-menetelmän perusteella.

Syntaksi

VUOSIPOISTO(kustannus; loppuarvo; aika; kausi)

VUOSIPOISTO-funktion syntaksilla on seuraavat argumentit:

Argumentti	Kuvaus
Kustannukset	Pakollinen. Double määrittää resurssin alkuperäisen hankintamennon.
Pelastus	Pakollinen. Kaksinkertainen sijoituksen arvo sen käyttöiän lopussa.
elämä	Pakollinen. Double määrittää investoinnin käyttöiän pituuden.
Kausi	Pakollinen. Double-arvo , joka määrittää kauden, jolle omaisuuden poisto lasketaan.

Huomautuksia

Aika- ja kausiargumentit on ilmaistava samoissa yksiköissä. Jos esimerkiksi elämä ilmoitetaan kuukausina, myös aika on ilmoitettava kuukausina. Kaikkien argumenttien on oltava positiivisia lukuja.

Esimerkkejä kyselyistä

Lauseke	Tulokset
SELECT SYD([Lainasumma],[Lainasumma]*.1,20,2) AS Expr1 FROM FinancialSample;	Laskee poiston sijoitukselle, jonka arvo on "LoanAmount", ja jäännösarvo on 10 % ("LoanAmount" kerrottuna 0,1:llä) arvioiden investoinnin käyttöiän olevan 20 vuotta. Poisto lasketaan toiselle vuodelle.
SELECT SYD([LoanAmount],0,20,3) AS SLDepreciation FROM FinancialSample;	Palauttaa poiston sijoitukselle, jonka arvo on Lainasumma, jäännösarvo 0 euroa, kun investoinnin käyttöikä on 20 vuotta. Tulokset näkyvät sarakkeessa SLDepreciation. Poisto lasketaan kolmannelle vuodelle.

VBA-esimerkki

Tässä esimerkissä VUOSIPOISTO-funktiolla palautetaan sijoituksen poisto tietyltä kaudelta, kun otetaan huomioon sijoituksen alkuperäinen hankintameno (),InitCost jäännösarvo sijoituksen käyttöajan lopussa (SalvageVal) ja investoinnin koko käyttöaika vuosina ().LifeTime Poistokausi, 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) & "."