SYD İşlevi

Bir varlığın belirtilen dönem için yıl toplamının yıpranma sayısını belirten bir Çift döndürür.

Söz dizimi

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

SYD işlevinin söz diziminde şu bağımsız değişkenler bulunur:

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.
Hayat	Gerekli. Varlığın yararlı ömrünün uzunluğunu belirten çift.
Dönem	Gerekli. Varlık amortismanını hesaplayan çift belirtme dönemi.

Açıklamalar

Yaşam ve dönem bağımsız değişkenleri aynı birimlerde ifade edilmelidir. Örneğin , yaşam ay cinsinden verilirse, dönem ay cinsinden de verilmelidir. Tüm bağımsız değişkenler pozitif sayılar olmalıdır.

Sorgu örnekleri

Ifa -de	Sonuçlar
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) AS Expr1 FROM FinancialSample;	Malın kullanım ömrünün 20 yıl olduğunu göz önünde bulundurarak ,%10 hurda değeriyle ("LoanAmount" değeri 0,1 ile çarpılarak , "LoanAmount" olarak değerlenen bir varlığın amortismanını hesaplar. Amortisman, ikinci yıl için hesaplanır.
SELECT SYD([LoanAmount],0,20,3) 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. Amortisman, üçüncü yıl için hesaplanır.

VBA örneği

Bu örnekte, malın ilk maliyeti (), varlığın kullanım ömrü () sonundaki hurda değeri ve varlığın yılLifeTime cinsinden toplam ömrü (InitCostSalvageVal) göz önüne alındığında, belirli bir dönem için yıpranma değerini döndürmek için SYD işlevi kullanılır. Amortismanın hesaplandığı yıl cinsinden dönem şeklindedir 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) & "."