YAT işlevi

Bir malın belirtilen dönem için toplam amortismanını belirten bir Çift döndürür.

Söz dizimi

YAT(maliyet, hurda, ömür, dönem)

YAT işlevinin söz diziminde aşağıdaki bağımsız değişkenler bulunur:

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.
Dönem	Gerekli. Varlık amortismanının hesaplandığı çift belirtme dönemi.

Açıklamalar

Ömür ve dönem bağımsız değişkenleri aynı birimlerle ifade edilmelidir. Örneğin, ömür ay olarak verilmişse, dönem de ay olarak verilmelidir. Tüm bağımsız değişkenlerin pozitif sayılar olması gerekir.

Sorgu örnekleri

İfade	Sonuçlar
SELECT YD([LoanAmount],[LoanAmount]*.1,20,2) AS Expr1 FROM FinancialSample;	Yararlı ömrünün 20 yıl olduğu düşünülerek, hurda değeri %10 olan ("KrediTutarı" çarpı 0,1) "KrediTutarı" olarak değerlenen bir malın yıpranmasını hesaplar. Yıpranma ikinci yıl için hesaplanır.
SELECT SYD([LoanAmount],0,20,3) AS SLDamortisman 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. Yıpranma üçüncü yıl için hesaplanır.

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, malın belirli bir dönem için amortismanını döndürmek için YAT işlevi kullanılmıştır. Yıpranmanın hesaplandığı yıl cinsinden dönemdir PDepr.

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, 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 life?")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YEARMONTHS    ' Ensure period is >= 1 year.
    MsgBox "Asset life must be a year or more."
    MonthLife = InputBox("What's the asset's useful life in months?")
Loop
LifeTime = MonthLife / YEARMONTHS    ' Convert months to years.
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
    LifeTime = Int(LifeTime + 1)    ' Round up to nearest year.
End If 
DepYear = CInt(InputBox("For which year do you want depreciation?"))
Do While DepYear < 1 Or DepYear > LifeTime
    MsgBox "You must enter at least 1 but not more than " & LifeTime
    DepYear = CInt(InputBox("For what year do you want depreciation?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."