Fungsi SYD

Catatan: Kami ingin secepatnya menyediakan konten bantuan terbaru dalam bahasa Anda. Halaman ini diterjemahkan menggunakan mesin dan mungkin terdapat kesalahan tata bahasa atau masalah keakuratan. Kami bertujuan menyediakan konten yang bermanfaat untuk Anda. Dapatkah Anda memberi tahu kami apakah informasi ini bermanfaat untuk Anda di bagian bawah halaman ini? Berikut artikel dalam bahasa Inggris untuk referensi.

Mengembalikan ganda menentukan jumlah tahun digit nilai depresiasi aset untuk periode tertentu.

Sintaks

SYD ( biaya sisa kehidupan, periode )

Sintaks fungsi SYD memiliki argumen ini:

Argumen

Deskripsi

biaya

Diperlukan. Ganda menentukan biaya awal aset.

sisa

Diperlukan. Ganda menentukan nilai aset di akhir masa yang berguna.

kehidupan

Diperlukan. Ganda menentukan panjang umur berguna aset.

periode

Diperlukan. Ganda menentukan periode untuk aset mana depresiasi dihitung.


Keterangan

Kehidupan dan periode argumen harus dinyatakan dalam unit yang sama. Misalnya, jika kehidupan diberikan dalam bulan, periode harus juga diberikan dalam bulan. Semua argumen harus berupa bilangan positif.

Contoh

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 nilai depresiasi aset untuk periode tertentu yang diberikan aset biaya awal (InitCost), nilai sisa di akhir umur berguna aset (SalvageVal), dan total Umur pakai aset di tahun (LifeTime). Periode tahun yang 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) & "."
Kembangkan keterampilan Office Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×