SLN İşlevi

Varlığın tek bir dönem için doğrusal amortismanını belirten bir Çift döndürür.

Söz dizimi

SLN(maliyet, hurda, ömür)

DA işlevinin aşağıdaki bağımsız değişkenleri vardır:

Bağımsız değişken	Açıklama
Maliyet	Gerekli. Malın ilk maliyetini belirten çift .
kurtarma	Gerekli. Faydalı ömrünün sonunda malın değerini iki kez belirtmek.
Hayatı	Gerekli. Malın faydalı ömrünün uzunluğunu iki kez belirtmek.

Açıklamalar

Amortisman dönemi, ömürbağımsız değişkeniyle aynı birimde ifade edilmelidir. Tüm bağımsız değişkenlerin pozitif sayılar olması gerekir.

Sorgu örnekleri

İfade	Sonuçlar
SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample;	"KrediTutarı" olarak değerindeki bir malın yıpranmasını, hurda değeri %10 olan ("KrediTutarı" 0,1 ile çarpılır), malın yararlı ömrü 20 yıl olarak kabul edildiğinde verir.
SELECT SLN([LoanAmount],0,20) AS SLDemortismation FROM FinancialSample;	Yararlı ömrünün 20 yıl olduğu varsayılarak, hurda değeri 0 ABD doları olan "LoanAmount" değerindeki bir malın yıpranmasını verir. Sonuçlar SLDemortisman sütununda görüntülenir.

VBA örneği

Bu örnekte, malın ilk maliyeti (InitCost), malın yararlı ömrünün sonundaki hurda değeri (SalvageVal) ve malın yıl cinsinden toplam ömrü (LifeTime) göz önüne alındığında, bir malın tek bir dönem için doğrusal amortismanını döndürmek için SLN işlevi kullanılmıştır.

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."