Descrição

A função SYD no VBA (Visual Basic for Applications) é uma ferramenta valiosa para calcular a depreciação de ativos com base no método de soma dos dígitos. Esse método de depreciação é amplamente utilizado na gestão financeira e contábil para determinar a diminuição do valor de um ativo ao longo de sua vida útil. A função SYD aceita parâmetros como custo inicial, valor residual, vida útil e período específico, permitindo o cálculo preciso da depreciação em diferentes contextos. Os exemplos fornecidos ilustram como aplicar a função SYD em situações variadas, tornando-a uma ferramenta essencial para profissionais envolvidos em análise de investimentos, planejamento financeiro e controle patrimonial.
Exemplos

    Function CalculaDepreciacaoSYD(custo As Double, valor_residual As Double, vida_util As Integer, periodo As Integer) As Double
        CalculaDepreciacaoSYD = SYD(custo, valor_residual, vida_util, periodo)
    End Function
    

    Sub Exemplo2()
        Dim custo As Double
        Dim valor_residual As Double
        Dim vida_util As Integer
        Dim periodo As Integer
        custo = 10000
        valor_residual = 2000
        vida_util = 5
        periodo = 3
        MsgBox "Depreciação no período " & periodo & ": $" & SYD(custo, valor_residual, vida_util, periodo)
    End Sub
    

    Sub Exemplo3()
        Dim custo As Double
        Dim valor_residual As Double
        Dim vida_util As Integer
        Dim periodo As Integer
        custo = 5000
        valor_residual = 1000
        vida_util = 4
        periodo = 2
        MsgBox "Depreciação no período " & periodo & ": $" & SYD(custo, valor_residual, vida_util, periodo)
    End Sub
    

    Sub Exemplo4()
        Dim custo As Double
        Dim valor_residual As Double
        Dim vida_util As Integer
        Dim periodo As Integer
        custo = 8000
        valor_residual = 2000
        vida_util = 6
        periodo = 4
        MsgBox "Depreciação no período " & periodo & ": $" & SYD(custo, valor_residual, vida_util, periodo)
    End Sub
    

    Sub Exemplo5()
        Dim custo As Double
        Dim valor_residual As Double
        Dim vida_util As Integer
        Dim periodo As Integer
        custo = 12000
        valor_residual = 3000
        vida_util = 8
        periodo = 5
        MsgBox "Depreciação no período " & periodo & ": $" & SYD(custo, valor_residual, vida_util, periodo)
    End Sub