Mengembalikan Ganda yang menentukan depresiasi aset secara lurus untuk satu periode.
Sintaks
SLN (biaya, penyelamatan, kehidupan)
Fungsi SLN 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. |
Keterangan
Periode penyusutan harus dinyatakan dalam unit yang sama dengan argumen kehidupan. Semua argumen harus berupa angka positif.
Contoh kueri
| Ekspresi | Hasil |
|---|---|
| PILIH SLN([LoanAmount],[LoanAmount]*.1,20) SEBAGAI Expr1 DARI FinancialSample; | Mengembalikan depresiasi untuk aset yang bernilai sebagai "LoanAmount", dengan nilai sisa 10%("LoanAmount" dikalikan 0,1), dengan mempertimbangkan masa manfaat aset menjadi 20 tahun. |
| PILIH SLN([LoanAmount],0,20) 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. |
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 depresiasi aset secara lurus untuk satu periode mengingat biaya awal aset (),InitCost nilai cadangan pada akhir masa manfaat aset (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."