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

정의

네임스페이스:

Microsoft.VisualBasic

어셈블리:

Microsoft.VisualBasic.Core.dll

Source:

Financial.vb

단일 기간의 자산에 대한 정액법을 지정하는 값을 반환합니다.

public:
 static double SLN(double Cost, double Salvage, double Life);

public static double SLN (double Cost, double Salvage, double Life);

static member SLN : double * double * double -> double

Public Function SLN (Cost As Double, Salvage As Double, Life As Double) As Double

매개 변수

Cost

Double

필수 요소. 초기 자산 비용입니다.

Salvage

Double

필수 요소. 내용 연수 종료 시점의 자산 값입니다.

Life

Double

필수 요소. 자산의 내용 연수 길이입니다.

반환

Double

단일 기간의 자산에 대한 정액법입니다.

예외

ArgumentException

Life = 0.

예제

이 예제에서는 함수를 SLN 사용하여 자산의 초기 비용(), 자산의 유용한 수명 끝에 있는 회수 값() 및 자산의 총 수명(InitCostSalvageValLifeTime)을 고려하여 한 기간 동안 자산의 직선 감가상각을 반환합니다.

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)

설명

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

추가 정보

• SYD(Double, Double, Double, Double)
• DDB(Double, Double, Double, Double, Double)
• ArgumentException
• 회계 요약