Entrar Ainda não tem acesso?
2
respostas

mesmo resultado

Referente ao curso Excel: personalizando e automatizando tarefas com VBA, no capítulo Meu primeiro código VBA e atividade Fazendo o código da função personalizada

por Estudante
| 44k xp | 24 posts

As vezes fico confuso com o raciocínio para elaborar uma equação (uma fórmula). Tenho o costume de sempre pensar primeiro no resultado que pode gerar o erro e em seguida o resultado esperado. Outra forma de pensar no problema gerando o mesmo resultado final é a seguinte.

Function fnCalculaMediaPeso(pTotalKilos As Double, pQtdViagens As Integer) As Double
If pQtdViagens = 0 Then
    fnCalculaMediaPeso = 0
Else
    fnCalculaMediaPeso = pTotalKilos / pQtdViagens
End If
End Function

Existe alguma organização mental (coerência de ver o problema) que você faz e segue até o final??

2 respostas
por Roberto Sabino
| 85.2k xp | 187 posts
Instrutor Professor e Conteudista

Fala Tiago, tudo bem?

A lógica na hora de programar varia muito, inclusive a mesma pessoa olhando seu código depois sempre verá melhorias.

Existe uma técnica chamada "refactoring" que é justamente ir melhorando o código sempre que passa por ele ou que apareça a necessidade de melhoria.

Enfim, é interessante ir vendo as variações e achar a maneira que melhor atenda ao que você quer fazer.

Abraços!

por EVANDRO JOSE SOARES
| 67.4k xp | 82 posts

Olá,

Outra maneira seria:

Function fnCalculaMediaPeso(pTotalKilos As Double, pQtdViagens As Integer) As Double

Dim varMediaPeso as Double

varMediaPeso = 0

If pQtdViagens <> 0 Then

    varMediaPeso = pTotalKilos / pQtdViagens

End If

fnCalculaMediaPeso = varMediaPeso

End Function

O importante é atingir o objetivo esperado do resultado.

Até.