Bir varlığın tek bir dönem için düz çizgi amortismanını belirten bir Çift döndürür.
Söz dizimi
DA( maliyet, hurda, ömür )
DA işlevinin bağımsız değişkenleri:
|
Bağımsız değişken |
Açıklama |
|
maliyet |
Gerekli. Varlığın ilk maliyetini çift belirtme. |
|
kurtar |
Gerekli. Yararlı ömrün sonunda varlığın değerini çift belirtme. |
|
yaşam |
Gerekli. Varlığın yararlı ömrü uzunluğunu çift belirtme. |
Açıklamalar
Yıpranma dönemi, amortisman süresiyle aynı birim olarakbağımsız değişken. Tüm bağımsız değişkenler pozitif sayılar olmalıdır.
Sorgu örnekleri
|
İfade |
Sonuçlar |
|
SELECT SLN([KrediAmount],[KrediAmount]*.1,20) AS Expr1 FROM FinancialSample; |
"Borç Bakiyesi" olarak değere sahip bir varlığın yıpranma değerini verir ve hurda değeri %10("BorçSaat" ile 0,1 ile çarpılır) ve varlığın yararlı ömrü 20 yıl olacaktır. |
|
SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; |
"Borç Bakiyesi" olarak değere sahip bir varlığın yıpranma değerini, 0 TL hurda değeriyle, varlığın yararlı ömrü 20 yıl olarak dikkate alınarak verir. 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, SLN işlevi, bir varlığın ilk maliyeti (InitCost), varlığın yararlı ömrü (SalvageVal) sonundaki hurda değeri ve varlığın yıl içindeki toplam ömrü (LifeTime) verili olarak tek bir dönem için düz amortismana dönmek için SLN işlevini kullanı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."
