SYD 함수

아티클
08/20/2008

업데이트: 2007년 11월

지정된 기간의 자산의 Sum-of-Years 감가상각을 Double 형식으로 반환합니다.

Function SYD( _
   ByVal Cost As Double, _
   ByVal Salvage As Double, _
   ByVal Life As Double, _
   ByVal Period As Double _
) As Double

매개 변수

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

예외

예외 형식	오류 번호	조건
ArgumentException	5	Salvage가 0보다 작거나, Period가 Life보다 크거나, Period가 0보다 작거나 같습니다.

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

설명

Life 인수와 Period 인수는 같은 단위로 표시해야 합니다. 예를 들어, Life의 단위가 개월이면 Period도 개월로 표시해야 합니다. 모든 인수는 양수여야 합니다.

예제

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

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)