Trả về một giá trị kiểu Đúp xác định khấu hao theo đường thẳng của tài sản trong một kỳ.
Cú pháp
SLN(cost, salvage, life)
Hàm SLN có các đối số sau đây:
| Tranh luận | Mô tả |
|---|---|
| Chi phí | Bắt buộc. Xác định kép chi phí ban đầu của tài sản. |
| Salvage | Bắt buộc. Xác định kép giá trị của tài sản khi kết thúc vòng đời hữu ích của nó. |
| Cuộc sống | Bắt buộc. Xác định kép độ dài của tuổi thọ hữu ích của tài sản. |
Chú thích
Kỳ khấu hao phải được thể hiện bằng cùng đơn vị với đối số tuổithọ. Tất cả các đối số phải là số dương.
Ví dụ về truy vấn
| Biểu thức | Kết quả |
|---|---|
| SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample; | Trả về khấu hao cho tài sản có giá trị là "Số_tiền_vay", với giá trị thu hồi là 10%("Số_tiền_vay" nhân với 0,1), xem xét tuổi thọ hữu ích của tài sản là 20 năm. |
| SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; | Trả về khấu hao cho tài sản có giá trị là "Số_tiền_vay", với giá trị thu hồi là $0, xem xét tuổi thọ hữu ích của tài sản là 20 năm. Kết quả được hiển thị trong cột SLDepreciation. |
Ví dụ về VBA
Lưu ý
Các ví dụ sau thể hiện cách sử dụng hàm này trong mô-đun Visual Basic for Applications (VBA). Để biết thêm thông tin về cách làm việc với VBA, chọn Tham khảo dành cho Nhà phát triển trong danh sách thả xuống cạnh Tìm kiếm, rồi nhập một hoặc nhiều từ vào hộp tìm kiếm.
Ví dụ này sử dụng hàm SLN để trả về khấu hao theo đường thẳng của tài sản trong một kỳ duy nhất tính theo chi phí ban đầu của tài sản (InitCost), giá trị thu hồi khi kết thúc vòng đời hữu ích của tài sản (SalvageVal) và tổng vòng đời của tài sản theo năm (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."