Fungsi SYD

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

Sintaks

SYD (biaya, penyelamatan, kehidupan, titik)

Sintaks fungsi SYD memiliki argumen berikut:

Argumen	Deskripsi
biaya	Diperlukan. Menentukan ganda biaya awal aset.
Penyelamatan	Diperlukan. Menentukan nilai ganda aset di akhir masa pakainya.
Kehidupan	Diperlukan. Menentukan ganda durasi masa manfaat aset.
Period (Titik)	Diperlukan. Periode penentuan ganda di mana depresiasi aset dihitung.

Keterangan

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

Contoh kueri

Ekspresi	Hasil
PILIH SYD([LoanAmount],[LoanAmount]*.1,20,2) SEBAGAI EXPR1 DARI FinancialSample;	Menghitung depresiasi untuk aset senilai sebagai "LoanAmount", dengan nilai sisa 10% ("LoanAmount" dikalikan 0,1), dengan mempertimbangkan masa manfaat aset menjadi 20 tahun. Depresiasi dihitung untuk tahun kedua.
PILIH SYD([LoanAmount],0,20,3) SEBAGAI SLDepreciation FROM FinancialSample;	Mengembalikan depresiasi untuk aset yang bernilai sebagai "LoanAmount", dengan nilai cadangan $0, dengan mempertimbangkan masa manfaat aset adalah 20 tahun. Hasil ditampilkan dalam kolom SLDepreciation. Depresiasi dihitung untuk tahun ketiga.

Contoh VBA

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