Returnerer et dobbelt reelt tal, som angiver den årlige afskrivning på et aktiv i en bestemt periode.
Syntaks
ÅRSAFSKRIVNING(købspris og restværdi levetid og periode)
Syntaksen for funktionen ÅRSAFSKRIVNING har disse argumenter:
| Argument | Beskrivelse |
|---|---|
| Koste | Påkrævet. Dobbelt angivelse af aktivets kostpris. |
| Bjærgning | Påkrævet. Dobbelt angivelse af aktivets værdi ved afslutningen af dets levetid. |
| Liv | Påkrævet. Dobbelt angiver længden på aktivets levetid. |
| Periode | Påkrævet. Dobbelt angivelse af den periode, som aktivafskrivningen beregnes for. |
Bemærkninger
Argumenterne levetid og periode skal udtrykkes i de samme enheder. Hvis liv f.eks. er angivet i måneder, skal perioden også angives i måneder. Alle argumenter skal være positive tal.
Eksempler på forespørgsel
| Udtryk | Resultater |
|---|---|
| SELECT ÅRSAFSKRIFT([Lånebeløb],[Lånebeløb]*,1,20,2) AS Udtryk1 FROM finansielt udtag; | Beregner afskrivningen på et aktiv, der vurderes som "LoanAmount" med en restværdi på 10 % ("LoanAmount" ganget med 0,1), idet aktivets levetid er 20 år. Afskrivningen beregnes for det andet år. |
| SELECT SYD([LoanAmount],0,20,3) AS SLDepreciation FROM FinancialSample; | Returnerer afskrivningen på et aktiv, der vurderes som "Lånebeløb" med en restværdi på kr 0, idet aktivets levetid er 20 år. Resultaterne vises i kolonnen SLDepreciation. Afskrivningen beregnes for det tredje år. |
VBA-eksempel
Bemærk
Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.
I dette eksempel bruges funktionen ÅRSAFSKRIVNING til at returnere afskrivningen på et aktiv i en bestemt periode under hensyntagen til aktivets startpris (InitCost), restværdien ved afskrivning af aktivets brugstid (SalvageVal) og aktivets samlede levetid i år (LifeTime). Perioden i år, som afskrivningen 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) & "."