Mengembalikan Double yang menentukan depresiasi garis lurus aset untuk satu periode.
Sintaks
SLN(cost, salvage, life)
Fungsi SLN memiliki argumen ini:
| Argumen | Deskripsi |
|---|---|
| Biaya | Diperlukan. Ganda menentukan biaya awal aset. |
| Menyelamatkan | Diperlukan. Ganda menentukan nilai aset di akhir masa pakainya yang berguna. |
| Kehidupan | Diperlukan. Ganda menentukan panjang masa pakai aset yang berguna. |
Keterangan
Periode depresiasi harus dinyatakan dalam satuan yang sama dengan argumen life. Semua argumen harus berupa angka positif.
Contoh kueri
| Ekspresi | Hasil |
|---|---|
| SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample; | Mengembalikan depresiasi untuk aset yang dinilai sebagai "LoanAmount", dengan nilai keselamatan 10%("LoanAmount" dikalikan dengan 0,1), mengingat umur aset yang berguna menjadi 20 tahun. |
| SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; | Mengembalikan depresiasi untuk aset yang dinilai sebagai "LoanAmount", dengan nilai sisa $0, mengingat umur aset yang berguna adalah 20 tahun. Hasilnya ditampilkan di 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 garis lurus aset untuk satu periode mengingat biaya awal aset (InitCost), nilai sisa di akhir masa pakai aset (SalvageVal), dan total umur 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."