Returnerer en dobbelt, der angiver den lineære afskrivning for et aktiv for en enkelt periode.
Syntaks
SLN( købspris;restværdi;levetid )
Funktionen SLN har disse argumenter:
Argument |
Beskrivelse |
pris |
Påkrævet. Dobbelt reelt tal , der angiver aktivets startpris. |
Bjærgning |
Påkrævet. Dobbelt reelt tal , der angiver aktivets værdi ved slutningen af dets levetid. |
levetid |
Påkrævet. Dobbelt reelt tal, der angiver aktivets levetid. |
Bemærkninger
Afskrivningsperioden skal udtrykkes i samme enhed som levetidenargument. Alle argumenter skal være positive tal.
Forespørgselseksempler
Udtryk |
Resultater |
SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Udtryk1 FROM FinancialSample; |
Returnerer afskrivningen for et aktiv, der er værdiangivet som "LoanAmount", med en restværdi på 10 %("LoanAmount" ganget med 0,1), idet aktivets levetid i betragtning af aktivets levetid er 20 år. |
SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; |
Returnerer afskrivningen for et aktiv, der er værdianskrevet som "LoanAmount", med en restværdi på kr. 0, hvor aktivets levetid i betragtning af 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 på et aktiv i en enkelt periode på grund af aktivets startomkostninger (InitCost), restværdi ved aktivets levetid (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."