Returnerer et dobbelt reelt tal, der angiver den lineære afskrivning for et aktiv i en enkelt periode.
Syntaks
SLN(købspris, restværdi, levetid)
Funktionen LA 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. |
Bemærkninger
Afskrivningsperioden skal udtrykkes i samme enhed som argumentet levetid. Alle argumenter skal være positive tal.
Eksempler på forespørgsel
| Udtryk | Resultater |
|---|---|
| SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample; | Returnerer 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. |
| SELECT SLN([LoanAmount],0,20) 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. |
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 SLN til at returnere den lineære afskrivning for et aktiv i en enkelt periode under hensyntagen til aktivets startpris (InitCost), restværdien ved afskrivning ved afskrivning af aktivets brugstid (SalvageVal) og aktivets samlede levetid i år (LifeTime).
Dim Fmt, InitCost, SalvageVal
Dim MonthLife, LifeTime, 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 useful life?")
MonthLife = InputBox("What's the asset's useful " & _
"life in months?")
' Ensure period is >= 1 year.
Do While MonthLife < YEARMONTHS
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's " & _
"useful life in months?")
Loop
' Convert months to years.
LifeTime = MonthLife / YEARMONTHS
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
' Round up to nearest year.
LifeTime = Int(LifeTime + 1)
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
Format(PDepr, Fmt) & " per year."