Hàm SLN

Trả về một Double, xác định khấu hao đều của tài sản trong một kỳ duy nhất.

Cú pháp

SLN(cost, salvage, life)

Hàm SLN có những đối số sau:

Đối số	Mô tả
chi phí	Bắt buộc. Đúp xác định chi phí ban đầu cho tài sản.
Trục vớt	Bắt buộc. Xác định kép giá trị của tài sản khi kết thúc thời gian hữu ích.
cuộc sống	Bắt buộc. Gấp đôi chỉ định độ dài 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 một đơn vị với đối số tuổi thọ. 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 của tài sản có giá trị "LoanAmount", với giá trị thu hồi là 10%("LoanAmount" nhân với 0,1), khi xét đến 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 của tài sản có giá trị "LoanAmount", với giá trị thu hồi là $0, khi 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

Ví dụ này sử dụng hàm SLN để trả về khấu hao đều của tài sản trong một kỳ duy nhất được biết đến chi phí ban đầu của tài sản (),InitCost giá trị thu hồi khi kết thúc tuổi thọ hữu ích của tài sản ()SalvageVal và tổng vòng đời của tài sản tính bằng 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."