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 |
|
kustannus |
Pakollinen. Kaksinkertainen , joka määrittää resurssin alkukustannukset. |
|
Pelastaa |
Pakollinen. Kaksinkertainen , joka määrittää resurssin arvon sen käyttöiän lopussa. |
|
kesto |
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
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-funktiota käytetään palauttamaan sijoituksen poisto tietyltä ajanjaksolta, kun otetaan huomioon käyttöomaisuuserän alkuperäiset kustannukset (InitCost), sijoituksen käyttöiän lopussa oleva jäännösarvo (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) & "."
