SLN 함수

단일 기간에 대한 자산의 정액법 감가 상각을 지정하는 Double을 반환합니다.

구문

SLN(비용, 잔적, 수명)

SLN 함수에는 다음과 같은 인수가 있습니다.

인수	설명
비용	필수 요소입니다. 자산의 초기 비용을 지정하는 Double.
인양	필수 요소입니다. Double 유효 수명 종료 시 자산의 가치를 지정합니다.
생활	필수 요소입니다. Double: 자산의 유효 수명 길이를 지정합니다.

주의

감가 상각 기간은 수명인수와 동일한 단위로 표현해야 합니다. 모든 인수는 양수여야 합니다.

쿼리 예제

Expression	결과
SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample;	잔존 가치가 10%("LoanAmount"에 0.1을 곱한 값)인 "LoanAmount"로 평가된 자산의 감가 상각액을 20년으로 간주하여 반환합니다.
SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample;	잔존 가치가 "LoanAmount"인 자산의 유효 수명을 20년으로 간주하여 잔존 값이 $0인 자산의 감가 상각을 반환합니다. 결과는 SLDepreciation 열에 표시됩니다.

VBA 예제

이 예제에서는 SLN 함수를 사용하여 자산의 초기 비용(),InitCost 자산의 유효 수명 종료 시 잔존 가치(SalvageVal) 및 자산의 총 수명(년)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."