Fungsi SLN

Mengembalikan ganda yang menentukan penyusutan garis lurus aset untuk satu periode.

Sintaks

SLN ( biaya, penyelamatan, kehidupan )

Fungsi SLN 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.

Keterangan

Periode penyusutan harus diekspresikan dalam unit yang sama dengan kehidupanargumen. Semua argumen harus berupa bilangan positif.

Contoh kueri

Ekspresi

Hasil

Pilih SLN ([LoanAmount], [LoanAmount] *. 1, 20) sebagai Ekspr1 dari FinancialSample;

Mengembalikan penyusutan untuk aset yang dinilai sebagai "LoanAmount", dengan nilai penyelamatan 10%("LoanAmount" dikalikan 0,1), mengingat masa manfaat aset tersebut adalah 20 tahun.

Pilih SLN ([LoanAmount],0, 20) 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.

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 SLN untuk mengembalikan penyusutan garis lurus aset untuk satu periode yang mengingat biaya awal aset (InitCost), nilai penyelamatan di akhir masa pakai aset yang berguna (SalvageVal), dan Total masa pakai aset dalam tahun (LifeTime).

Dim Fmt, InitCost, SalvageVal
Dim MonthLife, LifeTime, 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 useful life?")
MonthLife = InputBox("What's the asset's useful " & _
"life in months?")
' Ensure period is >= 1 year.
Do While MonthLife < YEARMONTHS
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's " & _
"useful life in months?")
Loop
' Convert months to years.
LifeTime = MonthLife / YEARMONTHS
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
' Round up to nearest year.
LifeTime = Int(LifeTime + 1)
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
Format(PDepr, Fmt) & " per year."

Catatan:  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? Berikut adalah artikel dalam bahasa Inggris untuk referensi.

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.

×