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:
|
Đối số |
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ó. |
|
thời lượ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
Thời gian khấu hao phải được thể hiện bằng cùng đơn vị với tuổi thọtham đối. 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 tính theo năm (LifeTime).
Dim Fmt, InitCost, SalvageValDim MonthLife, LifeTime, PDeprConst 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 IfPDepr = SLN(InitCost, SalvageVal, LifeTime)MsgBox "The depreciation is " & _ Format(PDepr, Fmt) & " per year."
