Returnerer et langt flyttall som angir årsavskrivningen for et aktivum for en angitt periode.
Syntaks
SYD( kostnad; restverdi; levetid; periode )
Syntaksen for funksjonen SYD har følgende argumenter:
Argument |
Beskrivelse |
kostnad |
Obligatorisk. Langt flyttall som angir opprinnelige kostnader for aktivumet. |
Berging |
Obligatorisk. Langt flyttall som angir verdien for aktivumet på slutten av levetiden. |
tid |
Obligatorisk. Langt flyttall som angir lengden på aktivumets økonomiske levetid. |
Periode |
Obligatorisk. Langt flyttall som angir perioden aktivumsavskrivning beregnes for. |
Merknader
Argumentene for levetid og periode må uttrykkes i de samme enhetene. Hvis for eksempel levetid gis i måneder, må periode også gis i måneder. Alle argumenter må være positive tall.
Spørringseksempler
Expression |
Resultater |
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) AS Expr1 FROM FinancialSample; |
Beregner avskrivningen for et aktivum som er verdsatt som "LoanAmount", med en restverdi på 10 % ("LoanAmount" multiplisert med 0,1), med tanke på at aktivumets økonomiske levetid skal være 20 år. Avskrivningen beregnes for det andre året. |
SELECT SYD([LoanAmount],0,20,3) AS SLDepreciation FROM FinancialSample; |
Returnerer avskrivningen for et aktivum som er verdsatt som "LoanAmount", med en restverdi på $ 0, med tanke på aktivumets nyttige levetid til å være 20 år. Resultatene vises i kolonnen SLDepreciation. Avskrivningen beregnes for tredje år. |
VBA-eksempel
Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Dette eksemplet bruker SYD-funksjonen til å returnere avskrivningen for et aktivum for en angitt periode gitt aktivumets opprinnelige kostnad (InitCost), restverdien ved slutten av aktivumets levetid (SalvageVal), og den totale levetiden for aktivumet i år (LifeTime). Perioden i årene som avskrivningen beregnes for, er 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) & "."