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

Daha fazla yardıma mı ihtiyacınız var?

Yeteneklerinizi geliştirin

Eğitimleri keşfedin >

Yeni özellikleri ilk olarak siz edinin

Microsoft Insider’a katılın >

Bu bilgi yararlı oldu mu?

Dil kalitesinden ne kadar memnunsunuz?
Deneyiminizi ne etkiledi?

Geri bildiriminiz için teşekkürler!

×