Mengembalikan nilai ganda yang menentukan digit depresiasi aset untuk periode tertentu.
Sintaks
SYD ( biaya, Salvage, kehidupan, periode )
Sintaks fungsi SYD memiliki argumen ini:
|
Argumen |
Deskripsi |
|
biaya |
Diperlukan. Menggandakan biaya awal aset. |
|
sisa |
Diperlukan. Nilai ganda menentukan nilai aset di akhir masa manfaatnya. |
|
asuransi |
Diperlukan. Menggandakan panjang masa pakai aset yang berguna. |
|
haid |
Diperlukan. Periode penentuan ganda yang penyusutan asetnya dihitung. |
Keterangan
Argumen Life dan period harus diekspresikan dalam unit yang sama. Misalnya, jika kehidupan diberikan dalam bulan, periode juga harus diberikan dalam bulan. Semua argumen harus berupa bilangan positif.
Contoh kueri
|
Ekspresi |
Hasil |
|
Pilih SYD ([LoanAmount], [LoanAmount] *. 1, 20,2) sebagai Ekspr1 dari FinancialSample; |
Menghitung depresiasi untuk aset yang dinilai sebagai "LoanAmount", dengan nilai penyelamatan 10% ("LoanAmount" dikalikan dengan 0,1), mengingat masa pakai aset menjadi 20 tahun. Depresiasi dihitung untuk tahun kedua. |
|
Pilih SYD ([LoanAmount],0, 20,3) sebagai Slpenyusutan dari FinancialSample; |
Mengembalikan penyusutan untuk aset yang dinilai sebagai "LoanAmount", dengan nilai penyelamatan $0, mengingat masa manfaat aset tersebut adalah 20 tahun. Hasilnya ditampilkan dalam kolom yang didepresiasi. Depresiasi dihitung untuk tahun ketiga. |
Contoh VBA
Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.
Contoh ini menggunakan fungsi SYD untuk mengembalikan depresiasi aset untuk periode tertentu yang mengingat biaya awal aset (InitCost), nilai penyelamatan di akhir masa pakai aset yang berguna (SalvageVal), dan Total masa pakai aset dalam tahun (LifeTime). Periode dalam tahun dimana penyusutan dihitung 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) & "."
