Financial.SYD(Double, Double, Double, Double) Método

Referência

Definição

Namespace:: Microsoft.VisualBasic

Assembly:: Microsoft.VisualBasic.Core.dll

Assembly:: Microsoft.VisualBasic.dll

Origem:: Financial.vb

Origem:: Financial.vb

Origem:: Financial.vb

Importante

Algumas informações se referem a produtos de pré-lançamento que podem ser substancialmente modificados antes do lançamento. A Microsoft não oferece garantias, expressas ou implícitas, das informações aqui fornecidas.

Retorna um valor que especifica a depreciação dos dígitos da soma dos anos de um ativo em determinado período.

public:
 static double SYD(double Cost, double Salvage, double Life, double Period);

public static double SYD (double Cost, double Salvage, double Life, double Period);

static member SYD : double * double * double * double -> double

Public Function SYD (Cost As Double, Salvage As Double, Life As Double, Period As Double) As Double

Parâmetros

Cost: Double

Obrigatórios. O custo inicial do ativo.

Salvage: Double

Obrigatórios. O valor do ativo no final da vida útil.

Life: Double

Obrigatórios. A duração da vida útil do ativo.

Period: Double

Obrigatórios. O período no qual a depreciação do ativo é calculada.

Retornos

Double

A depreciação dos dígitos da soma dos anos de um ativo por um período especificado.

Exceções

ArgumentException

Salvage< 0, Period>Life ou Period<=0.

Exemplos

Este exemplo usa a SYD função para retornar a depreciação de um ativo por um período especificado, dado o custo inicial do ativo (InitCost), o valor de recuperação no final da vida útil do ativo (SalvageVal) e a vida total do ativo em anos (LifeTime).

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)

Comentários

Os Life argumentos e Period devem ser expressos nas mesmas unidades. Por exemplo, se Life for dado em meses, Period também deverá ser dado em meses. Todos os argumentos devem ser números positivos.

Aplica-se a

Partilhar via