Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

6 de abril de 2015

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

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

Ei! Envie seus comentários e sugestões de artigos. Compartilhe este artigo com seus chefes, colegas de trabalho e amigos.

Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine