Financial.DDB(Double, Double, Double, Double, Double) 메서드

public static double DDB(double Cost, double Salvage, double Life, double Period, double Factor = 2);

static member DDB : double * double * double * double * double -> double

Public Function DDB (Cost As Double, Salvage As Double, Life As Double, Period As Double, Optional Factor As Double = 2) As Double

매개 변수

반품

이중 감소 잔액 메서드 또는 지정한 다른 방법을 사용하여 특정 기간 동안 자산의 감가 상각입니다.

예외

예제

이 예제에서는 초기 비용(), 자산의 유용한 수명(), 자산의 총 수명(InitCost년) 및 감가상각이 계산Depr되는 기간(SalvageVal)을 고려하여 지정된 기간 동안 자산의 감가상각을 반환하는 함수를 사용합니다DDBLifeTime.

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)

설명

이중 체감법은 가속 상각법으로 감가 상각액을 계산합니다. 즉, 처음 기간의 감가 상각 비율이 가장 크고 다음 기간부터는 점점 작아집니다.

인수와 Period 인수는 Life 동일한 단위로 표현되어야 합니다. 예를 들어 월 단위로 제공되는 경우 Life 월 Period 단위로 지정해야 합니다. 모든 인수는 양수여야 합니다.

이 함수는 DDB 다음 수식을 사용하여 지정된 기간 동안의 감가 상각액을 계산합니다.

감가 상각 / 기간 = ((비용 - 인양) * 요인) / 수명

추가 정보

• SLN(Double, Double, Double)
• SYD(Double, Double, Double, Double)
• ArgumentException
• 재무 요약