DONUT PROJECT 2015 - Função - Retorna o número de ocorrências de um caracter numa string

Retorna o número de vezes que um caracter aparece numa String.

Por exemplo:

Exemplo: ReturnOccurs ("ACUPUNTURA, ACUPUNTURA, ANESTESIOLOGIA",",")

Retorna: 2

Function ReturnOccurs(str As String, nOccur As String) As String
    '    Author: André Luiz Bernardes - andredinizbernardes@gmail.com
    '      Date: 06.04.15 - 11:37
    ' Descrição: Retorna o número de ocorrências de um caracter numa string.
    '   Exemplo: ReturnOccurs("ACUPUNTURA, ACUPUNTURA, ANESTESIOLOGIA",",") - Retorna: 2
   
    Let ReturnOccurs = Len(str) - Len(Replace(str, nOccur, "")) + (Len(Trim(A1)) > 0)
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