Bir varlığın tek bir dönem için düz çizgi amortismanını belirten bir Çift döndürür.
Söz dizimi
SLN( maliyet, hurda, ömür )
SLN işlevi şu bağımsız değişkenlere sahiptir:
|
Bağımsız değişken |
Açıklama |
|
maliyet |
Gerekli. Varlığın ilk maliyetini belirten çift. |
|
Kurtarma |
Gerekli. Varlığın yararlı ömrünün sonundaki değerinin çift belirtilmesi. |
|
ömrü |
Gerekli. Varlığın yararlı ömrünün uzunluğunu belirten çift. |
Açıklamalar
Amortisman dönemi, yaşambağımsız değişken ile aynı ünitede ifade edilmelidir. Tüm bağımsız değişkenler pozitif sayılar olmalıdır.
Sorgu örnekleri
|
Expression |
Sonuçlar |
|
SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample; |
Varlığın kullanım ömrünün 20 yıl olduğu göz önünde bulundurularak, "LoanAmount" olarak değerlenen bir varlığın amortismanını %10 hurda değeriyle ("LoanAmount" değeri 0,1 ile çarpılarak) döndürür. |
|
SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; |
Varlığın kullanım ömrünün 20 yıl olduğunu göz önünde bulundurarak, "LoanAmount" olarak değerlenen bir varlığın 0 TL hurda değeriyle yıpranma değerini döndürür. Sonuçlar SLDepreciation sütununda görüntülenir. |
VBA örneği
Not: Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.
Bu örnekte, bir varlığın ilk maliyeti (InitCost), varlığın yararlı ömrünün sonundaki hurda değeri (SalvageVal) ve varlığın yıl cinsinden toplam ömrü (LifeTime) göz önünde bulundurularak tek bir dönem için sabit satırlı amortismanını döndürmek için SLN işlevi kullanılı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."
