SLN 함수

아티클
08/20/2008

업데이트: 2007년 11월

단일 기간의 자산에 대한 정액법을 Double 형식으로 반환합니다.

Function SLN( _
   ByVal Cost As Double, _
   ByVal Salvage As Double, _
   ByVal Life As Double _
) As Double

매개 변수

Cost
필수적 요소. 초기 자산 비용을 지정하는 Double 형식입니다.
Salvage
필수적 요소. 내용 연수 마지막의 자산 값을 지정하는 Double 형식입니다.
Life
필수적 요소. 자산의 내용 연수 길이를 지정하는 Double 형식입니다.

예외

예외 형식	오류 번호	조건
ArgumentException	5	Life = 0.

비구조적 오류 처리를 사용하는 Visual Basic 6.0 응용 프로그램을 업그레이드하는 경우에는 "오류 번호" 열을 참조하십시오. 오류 번호를 Number 속성(Err 개체)과 비교할 수 있습니다. 그러나 가능하면 이러한 오류 제어 방법을 Visual Basic의 구조적 예외 처리 개요에 설명된 방식으로 바꾸는 것이 좋습니다.

설명

감가상각 기간은 Life 인수와 같은 단위로 표시해야 합니다. 모든 인수는 양수여야 합니다.

예제

다음 예제에서는 초기 자산 비용(InitCost), 자산의 내용 연수 종료 시점의 salvage 값(SalvageVal) 및 연 단위 자산의 총 수명(LifeTime)을 지정한 SLN 함수를 사용하여 단일 기간의 자산에 대한 정액법을 반환합니다.

Dim InitCost, SalvageVal, LifeTime, DepYear As Double
Dim Fmt As String = "###,##0.00"

InitCost = CDbl(InputBox("What's the initial cost of the asset?"))
SalvageVal = CDbl(InputBox("Enter the asset's value at end of its life."))
LifeTime = CDbl(InputBox("What's the asset's useful life in years?"))

' Use the SLN function to calculate the deprecation per year.
Dim SlnDepr As Double = SLN(InitCost, SalvageVal, LifeTime)
Dim msg As String = "The depreciation per year: " & Format(SlnDepr, Fmt)
msg &= vbCrLf & "Year" & vbTab & "Linear" & vbTab & "Doubling" & vbCrLf

' Use the SYD and DDB functions to calculate the deprecation for each year.
For DepYear = 1 To LifeTime
    msg &= DepYear & vbTab & _
        Format(SYD(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbTab & _
        Format(DDB(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbCrLf
Next
MsgBox(msg)