SLN, functie

Van toepassing op
Access voor Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Geeft een waarde van het gegevenstype Double als resultaat die de lineaire afschrijving van activa over een bepaalde periode aangeeft.

Syntaxis

SLN(kosten, restwaarde, levensduur)

De functie LIN.AFSCHR heeft deze argumenten:

Argument Beschrijving
kosten Vereist. Een waarde van het gegevenstype Double die de aanschafkosten van het activum aangeeft.
restwaarde Vereist. Een waarde van het gegevenstype Double die de waarde van het activum aan het einde van de levensduur aangeeft.
duur Vereist. Een waarde van het gegevenstype Double die de lengte van de levensduur van het activum aangeeft.

Opmerkingen

De afschrijvingsperiode moet worden uitgedrukt in dezelfde eenheid als het argument levensduur. Alle argumenten moeten positieve getallen zijn.

Queryvoorbeelden

Expression Resultaten
SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample; Retourneert de afschrijving voor een actief met de waarde 'LoanAmount', met een restwaarde van 10%("LoanAmount" vermenigvuldigd met 0,1), waarbij de levensduur van het activum 20 jaar is.
SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; Retourneert de afschrijving voor een actief met de waarde 'LoanAmount', met een restwaarde van $ 0, waarbij de levensduur van het activum 20 jaar is. De resultaten worden weergegeven in de kolom SLDepreciation.

VBA-voorbeeld

Opmerking

In de volgende voorbeelden wordt het gebruik van deze functie in een VBA-module (Visual Basic for Applications) toegelicht. Meer informatie over het werken met VBA vindt u door in de vervolgkeuzelijst naast Zoeken de optie Referentie voor ontwikkelaars te selecteren en een of meer termen in het zoekvenster te typen.

In dit voorbeeld wordt de functie SLN gebruikt om de lineaire afschrijving van een activum gedurende één periode te retourneren op basis van de initiële kosten van het activum (InitCost), de restwaarde aan het einde van de levensduur van het activum (SalvageVal) en de totale levensduur van het activum in jaren (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."