Fungsi SYD

Mengembalikan Double yang menentukan depresiasi aset digit jumlah tahun untuk periode tertentu.

Sintaks

SYD(cost, salvage, life, period)

Sintaks fungsi SYD memiliki argumen ini:

Argumen	Deskripsi
Biaya	Diperlukan. Ganda menentukan biaya awal aset.
Menyelamatkan	Diperlukan. Ganda menentukan nilai aset di akhir masa pakainya yang berguna.
Kehidupan	Diperlukan. Ganda menentukan panjang masa pakai aset yang berguna.
Periode	Diperlukan. Ganda menentukan periode depresiasi aset yang dihitung.

Keterangan

Argumen life and period harus dinyatakan dalam satuan yang sama. Misalnya, jika kehidupan diberikan dalam bulan, periode juga harus diberikan dalam bulan. Semua argumen harus berupa angka positif.

Contoh kueri

Ekspresi	Hasil
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) AS Expr1 FROM FinancialSample;	Menghitung depresiasi untuk aset yang dinilai sebagai "LoanAmount", dengan nilai keselamatan 10% ("LoanAmount" dikalikan dengan 0,1), mengingat umur aset yang berguna menjadi 20 tahun. Depresiasi dihitung untuk tahun kedua.
SELECT SYD([LoanAmount],0,20,3) AS SLDepreciation FROM FinancialSample;	Mengembalikan depresiasi untuk aset yang dinilai sebagai "LoanAmount", dengan nilai sisa $0, mengingat umur aset yang berguna adalah 20 tahun. Hasilnya ditampilkan di kolom SLDepreciation. Depresiasi dihitung untuk tahun ketiga.

Contoh VBA

Contoh ini menggunakan fungsi SYD untuk mengembalikan depresiasi aset untuk periode tertentu dengan biaya awal aset (InitCost), nilai sisa di akhir masa pakai aset (SalvageVal), dan total umur aset dalam tahun (LifeTime). Periode dalam tahun di mana depresiasi dihitung adalah 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) & "."