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."

Bạn cần thêm trợ giúp?

Bạn muốn xem các tùy chọn khác?

Khám phá các lợi ích của gói đăng ký, xem qua các khóa đào tạo, tìm hiểu cách bảo mật thiết bị của bạn và hơn thế nữa.

Cộng đồng giúp bạn đặt và trả lời các câu hỏi, cung cấp phản hồi và lắng nghe ý kiến từ các chuyên gia có kiến thức phong phú.