Funktionen ÅRSAVSKR

Returnerar ett värde av datatypen Double som anger den årliga avskrivningssumman för en tillgång under en angiven period.

Syntax

ÅRSAVSKR(kostnad; restvärde; livslängd; period)

Syntaxen för funktionen ÅRSAVSKR har följande argument:

Argument	Beskrivning
Kostnad	Obligatoriskt. Double anger initialkostnaden för tillgången.
Bärgning	Obligatoriskt. Double anger värdet för tillgången i slutet av dess livslängd.
Liv	Obligatoriskt. Double anger längden på tillgångens livslängd.
Punkt slut	Obligatoriskt. Double anger den period som tillgångsavskrivningen beräknas för.

Kommentarer

Argumenten livslängd och period måste uttryckas i samma enhet. Om t.ex. livet anges i månader, måste mens också anges i månader. Alla argument måste vara positiva tal.

Exempel på frågor

Uttryck	Resultat
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) AS Expr1 FROM FinancialSample;	Beräknar avskrivningen för en tillgång värderad som "Lånebelopp" med ett restvärde på 10 % ("Lånebelopp" multiplicerat med 0,1), förutsatt att tillgångens livslängd är 20 år. Avskrivningen beräknas för det andra året.
SELECT SYD([LoanAmount],0,20,3) AS SLDepreciation FROM FinancialSample;	Returnerar avskrivningen för en tillgång värderad som "Lånebelopp", med ett restvärde på 0 kr, förutsatt att tillgångens livslängd är 20 år. Resultatet visas i kolumnen SLDepreciation. Avskrivningen beräknas för det tredje året.

VBA-exempel

I det här exemplet används funktionen ÅRSAVSKR för att returnera avskrivningen för en tillgång under en angiven period givet tillgångens initialkostnad (InitCost), restvärdet i slutet av tillgångens livslängd (SalvageVal) och tillgångens totala livslängd i år (LifeTime). Den period i år som avskrivningen beräknas för är 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) & "."