DONUT PROJECT 2015 - Função - Retorna Apenas o Conteúdo Entre Parênteses

​

A função abaixo é muito útil por permitir retornar apenas o conteúdo que estiver entre parênteses.

Public Function ExtraiOValorEntreParenteses (str As String) As String

'Author: André Luiz Bernardes - andredinizbernardes@gmail.com
' Date: 06.04.15 - 10:00
' Descrição: Retorna somente o conteúdo de uma frase que estiver entre parênteses.

    Dim openPos As Integer

    Dim closePos As Integer

    Dim midBit As String

    Let openPos = InStr(str, "(")

    Let closePos = InStr(str, ")")

    Let midBit = Mid(str, openPos + 1, closePos - openPos - 1)

    Let ExtraiOValorEntreParenteses = midBit

End Function

 Série de Livros nut Project 

  

Veja outros códigos:

  

 

 

 

 Série VBA Outlook: 

  

  

  

 Série DONUT PROJECT 2024 

  

  

  

  

 Série DONUT PROJECT 2021 

  

  

  

 Série DONUT PROJECT 2018 

  

   

  

  

 

 Série DONUT PROJECT 2015 

  

    

   

  

   

  

   

  

 

 Série DONUT PROJECT 2014 

   

   

  

  

    

  Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com