Etiqueta: Switch

SYD

Função SYD em VBA

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

Switch – Alternar

Função Switch em VBA







Descrição

A função Switch em VBA é usada para simplificar expressões condicionais que envolvem múltiplas opções. Ela permite avaliar uma série de condições e retornar um valor com base na primeira condição verdadeira encontrada.

Exemplos de Uso:


    Function ClassificarNota(nota As Integer) As String
        ClassificarNota = Switch(nota >= 90, "A", nota >= 80, "B", nota >= 70, "C", nota >= 60, "D", True, "F")
    End Function
    

    Function CalcularDesconto(total As Double) As Double
        CalcularDesconto = total * Switch(total >= 1000, 0.1, total >= 500, 0.05, True, 0)
    End Function
    

    Sub Saudacao(periodo As String)
        Dim mensagem As String
        mensagem = Switch(periodo = "manhã", "Bom dia!", periodo = "tarde", "Boa tarde!", periodo = "noite", "Boa noite!")
        MsgBox mensagem
    End Sub
    

    Sub VerificarDiaSemana(dia As String)
        Dim mensagem As String
        mensagem = Switch(dia = "segunda", "Início da semana", dia = "sexta", "Fim de semana", True, "Dia comum")
        MsgBox mensagem
    End Sub
    

    Function ValidarIdade(idade As Integer) As String
        ValidarIdade = Switch(idade < 0, "Idade inválida", idade >= 18, "Maior de idade", idade < 18, "Menor de idade")
    End Function

Descrição Detalhada:

A função Switch em VBA é uma ferramenta valiosa para simplificar expressões condicionais em que múltiplas opções devem ser avaliadas. Ela permite que você especifique uma série de condições e seus valores correspondentes, retornando o valor da primeira condição verdadeira encontrada. Isso torna o código mais conciso e legível, reduzindo a necessidade de aninhar várias estruturas condicionais. Os exemplos apresentados demonstram como utilizar a função Switch em situações diversas, como classificação de notas, cálculo de descontos, saudações com base no período do dia, verificação do dia da semana e validação de idade. Compreender e aplicar a função Switch no VBA aprimorará sua capacidade de criar código eficiente e claro em suas macros e automações.