Este fórum está sendo desativado

[cyberlacs75]

Estou com problemas em fazer uma function retornar um Integer, o que será que esta errado

Function que quero que de um return em um numero inteiro

Código: Selecionar todos

Function RetornaValor ( ByVal valor As Integer, ByVal valorAnterior As Integer ) As Integer
    
        Dim somatorio As Integer
        Dim formula As Integer
        
        formula = (2* valor) + valorAnterior

        If formula >= 600 And formula <= 660 Then
               somatorio = formula
        Else
               somatorio = 0
        End If

         return somatório

End Function

Código de chamada

Código: Selecionar todos

Dim calculado As Integer
Set calculado = RetornaValor ( valor, valorAnterior )

Fico no aguardo obrigado

[cyberlacs75]

É só colocar o nome da função recebendo o valor desejado, nossa que facil kkkkkkkkk

Código: Selecionar todos

Function RetornaValor ( ByVal valor As Integer, ByVal valorAnterior As Integer ) As Integer
    
        Dim somatorio As Integer
        Dim formula As Integer
        
        formula = (2* valor) + valorAnterior

        If formula >= 600 And formula <= 660 Then
               somatorio = formula
        Else
               somatorio = 0
        End If

         RetornaValor = somatório 'NOME DA FUNÇÃO RECEBENDO O VALOR DESEJADO

End Function