ÅRSAVS, funksjon

Returnerer et langt flyttall som angir årsavskrivningen for et aktivum i en angitt periode.

Syntaks

ÅRSAVS(kostnad; restverdi; levetid; periode)

Syntaksen for funksjonen ÅRSAVS har disse argumentene:

Argumenter	Beskrivelse
koste	Obligatorisk. Dobbelt som angir den opprinnelige kostnaden for aktivumet.
berging	Obligatorisk. Dobbelt som angir verdien for aktivumet ved slutten av dets økonomiske levetid.
liv	Obligatorisk. Dobbelt som angir lengden på aktivumets økonomiske levetid.
Periode	Obligatorisk. Dobbelt som angir perioden som aktivaavskrivning beregnes for.

Merknader

Argumentene levetid og periode må uttrykkes i samme enheter. For eksempel, hvis liv er gitt i måneder, må periode også angis i måneder. Alle argumenter må være positive tall.

Eksempler på spørringer

Uttrykk	Resultater
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) AS Expr1 FROM FinancialSample;	Beregner avskrivningen for et aktivum som verdsettes som "Lånebeløp" med en restverdi på 10 % ("Lånebeløp" multiplisert med 0,1), med tanke på at aktivumets økonomiske levetid er 20 år. Avskrivningen beregnes for andre år.
SELECT SYD([LoanAmount],0,20,3) AS SLDepreciation FROM FinancialSample;	Returnerer avskrivningen for et aktivum som er verdsatt som "Lånebeløp", med en restverdi på 0 kr, idet aktivumets økonomiske levetid er 20 år. Resultatene vises i kolonnen SLDepreciation. Avskrivningen beregnes for det tredje året.

VBA-eksempel

I dette eksemplet brukes ÅRSAVS.- funksjonen til å returnere avskrivningen for et aktivum for en angitt periode, angitt i forhold til aktivumets opprinnelige kostnad (InitCost), restverdien ved slutten av aktivumets økonomiske levetid (SalvageVal) og aktivumets totale levetid i år (LifeTime). Perioden i år 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) & "."