SYD-funktio

Palauttaa Double-arvon, joka määrittää resurssin vuosisummien poiston määritetyltä ajanjaksolta.

Syntaksi

SYD(kustannus, loppuarvo, aika, kausi)

SYD-funktion syntaksissa on seuraavat argumentit:

Argumentti	Kuvaus
Kustannukset	Pakollinen. Kaksinkertainen , joka määrittää resurssin alkukustannukset.
Pelastaa	Pakollinen. Kaksinkertainen , joka määrittää resurssin arvon sen käyttöiän lopussa.
Elämän	Pakollinen. Kaksoisarvo , joka määrittää resurssin käyttöiän pituuden.
kausi	Pakollinen. Kaksinkertainen , joka määrittää kauden, jolle käyttöomaisuuden poisto lasketaan.

Huomautuksia

Elinkaari- ja kausiargumentit on ilmaistava samoissa yksiköissä. Jos esimerkiksi elämä annetaan kuukausina, piste on annettava myös kuukausina. Kaikkien argumenttien on oltava positiivisia lukuja.

Esimerkkejä kyselystä

Lauseke	Tulokset
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) AS Expr1 FROM FinancialSample;	Laskee "LoanAmount"-arvona arvostetun omaisuuserän poiston, jonka loppuarvo on 10 % ("LoanAmount" kerrottuna luvulla 0,1), ottaen huomioon, että käyttöomaisuuden käyttöikä on 20 vuotta. Poisto lasketaan toiselle vuodelle.
SELECT SYD([LoanAmount],0,20,3) AS SLDepreciation FROM FinancialSample;	Palauttaa poiston omaisuuserälle, jonka arvo on "LoanAmount", ja loppuarvo on 0 $, kun otetaan huomioon, että hyödykkeen käyttöikä on 20 vuotta. Tulokset näkyvät sarakkeessa SLDepreciation. Poisto lasketaan kolmatta vuotta varten.

VBA-esimerkki

Tässä esimerkissä SYD-funktiota käytetään palauttamaan sijoituksen poisto tietyltä ajanjaksolta, kun otetaan huomioon omaisuuserän alkuperäiset kustannukset (InitCost), sijoituksen käyttöiän lopussa oleva loppuarvo (SalvageVal) ja sijoituksen kokonaisaika vuosina (LifeTime). Kausi vuosina, joilta 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) & "."