SYD 함수

지정된 기간 동안 자산의 수 감가 상각을 지정하는 Double을 반환합니다.

구문

SYD(비용, 인양, 수명, 기간)

SYD 함수 구문에는 다음과 같은 인수가 사용됩니다.

인수	설명
비용	필수 요소입니다. 자산의 초기 비용을 두 번 지정합니다.
구조	필수 요소입니다. 유용한 수명이 끝날 때 자산의 값을 두 번 지정합니다.
생활	필수 요소입니다. 자산의 유용한 수명 길이를 이중으로 지정합니다.
기간	필수 요소입니다. 자산 감가 상각이 계산되는 기간을 이중으로 지정합니다.

주의

수명 및 기간 인수는 동일한 단위로 표현되어야 합니다. 예를 들어 수개월 안에 생명 이 주어지면 몇 달 안에 마침표 도 주어져야 합니다. 모든 인수는 양수여야 합니다.

쿼리 예제

Expression	결과
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) AS Expr1 FROM FinancialSample;	자산의 유용한 수명을 20년으로 고려하여 "LoanAmount"로 평가되는 자산의 감가 상각액을 10%("LoanAmount"에 0.1을 곱한 값)로 계산합니다. 감가 상각액은 2년 동안 계산됩니다.
SELECT SYD([LoanAmount],0,20,3) AS SLDepreciation FROM FinancialSample;	자산의 유용한 수명을 20년으로 고려하여 회수 값이 $0인 "LoanAmount"로 평가되는 자산의 감가 상각액을 반환합니다. 결과는 SLDepreciation 열에 표시됩니다. 감가 상각액은 3년 동안 계산됩니다.

VBA 예제

이 예제에서는 SYD 함수를 사용하여 자산의 초기 비용(), 자산의 수명 종료 시 회수 값() 및 자산의 총 수명(InitCostSalvageVal)을 고려하여 지정된 기간 동안 자산LifeTime의 감가 상각을 반환합니다. 감가상각이 계산되는 연도의 기간은 입니다 PDepr.

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, 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 life?")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YEARMONTHS    ' Ensure period is >= 1 year.
    MsgBox "Asset life must be a year or more."
    MonthLife = InputBox("What's the asset's useful life in months?")
Loop
LifeTime = MonthLife / YEARMONTHS    ' Convert months to years.
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
    LifeTime = Int(LifeTime + 1)    ' Round up to nearest year.
End If 
DepYear = CInt(InputBox("For which year do you want depreciation?"))
Do While DepYear < 1 Or DepYear > LifeTime
    MsgBox "You must enter at least 1 but not more than " & LifeTime
    DepYear = CInt(InputBox("For what year do you want depreciation?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."