Neste artigo, criaremos uma função personalizada para converter strings negativas em um número inteiro.
Os dados brutos para este artigo consistem em strings seguidas por um sinal de menos (-).
Queremos converter essas strings em inteiros.
Explicação lógica
Neste artigo, criamos uma função personalizada ConvertNegNumbers para converter a string em inteiro. Esta função recebe o valor da string como entrada e retorna um inteiro como saída.
Explicação do código
Direita (Var, 1) = "-"
O código acima é usado para verificar se o último caractere da string é igual ao sinal de menos (-).
ConvertNegNumbers = CInt ("-" & Left (Var, Len (Var) - 1))
No código acima, a função esquerda é usada para extrair todos os caracteres da string, exceto o último. A função CInt é usada para converter o valor da string em inteiro.
Siga abaixo para o código
Opção Explícita Função ConvertNegNumbers (Var As String) 'Verificando se o último caractere na string é menos (-) If Right (Var, 1) = "-" Then' Convertendo o valor da string em um inteiro negativo ConvertNegNumbers = CInt ("-" & Left (Var, Len (Var) - 1)) Else 'Conversão do valor da string em inteiro ConvertNegNumbers = CInt (Var) End If End Function
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail