VBA - Funções para lidar com Nomes

Tratar os nomes que encontramos em várias bases de dados no decorrer da nossa vida de desenvolvedores é muito bom quando já temos algumas coisas resolvidas.

Seguem algumas coisas para guardarem em suas bibliotecas...

SEPARANDO O PRIMEIRO NOME:
Function ReturnName(nFrase As Variant) As String     ' Author:                     Date:               Contact:                 URL:     ' André Bernardes             10/02/2010 12:31    bernardess@gmail.com     http://al-bernardes.sites.uol.com.br/     ' Retorna o primeiro nome a partir de uma frase com o nome completo.         Dim DetectedSpace As Integer     Dim LenFrase As Integer         Let DetectedSpace = InStr(1, nFrase, " ")     Let LenFrase = Len(nFrase) - DetectedSpace + 1     Let ReturnName = Trim(Left(nFrase, DetectedSpace)) End Function
 
SOMENTE O SOBRENOME:
Function ReturnSobreNome(nFrase As Variant) As String     ' Author:                     Date:               Contact:                 URL:     ' André Bernardes             09/02/2010 15:20    bernardess@gmail.com     http://al-bernardes.sites.uol.com.br/     ' Retorna o primeiro nome a partir de uma frase com o nome completo.         Dim DetectedSpace As Integer     Dim LenFrase As Integer         Let DetectedSpace = InStr(1, nFrase, " ")     Let LenFrase = Len(nFrase) - DetectedSpace + 1     Let ReturnSobreNome = Trim(Mid(nFrase, DetectedSpace, LenFrase)) End Function
 
CAPITALIZE: TORNANDO AS PRIMEIRAS LETRAS DOS NOMES COMO MAIÚSCULAS:
Function CaptalizeWords(pvarText As Variant) As Variant     ' Author:                     Date:               Contact:                 URL:     ' André Bernardes             11/02/2010 09:24    bernardess@gmail.com     http://al-bernardes.sites.uol.com.br/     ' Retorna as primeiras letras de quaiquer palavras como maiúsculas.         If IsNull(pvarText) Then         CaptalizeWords = Null     Else         CaptalizeWords = StrConv(pvarText, vbProperCase)     End If End Function
 
 
Twitter:
@officespecialis @brzexceldevelop @brzaccessdevel
 
Veja também: Blog Office VBA
 
Implemente Dashboards & Scorecards nas suas aplicações MS Excel, MS Access, MS Powerpoint:
 
?ui=2&view=att&th=126bcf41746829d7&attid=0.1&disp=attd&realattid=ii_126bcf41746829d7&zw  ?ui=2&view=att&th=126bcf46cd1064c1&attid=0.1&disp=attd&realattid=ii_126bcf46cd1064c1&zw  ?ui=2&view=att&th=126bcf4bcd67f0c7&attid=0.1&disp=attd&realattid=ii_126bcf4bcd67f0c7&zw  ?ui=2&view=att&th=126bcf533fac9860&attid=0.1&disp=attd&realattid=ii_126bcf533fac9860&zw
 
?ui=2&view=att&th=126bcf5b564427c1&attid=0.1&disp=attd&realattid=ii_126bcf5b564427c1&zw  ?ui=2&view=att&th=126bcf63f7ee8f2f&attid=0.1&disp=attd&realattid=ii_126bcf63f7ee8f2f&zw  ?ui=2&view=att&th=126bcf68bd3c3711&attid=0.1&disp=attd&realattid=ii_126bcf68bd3c3711&zw  ?ui=2&view=att&th=126bcf7689e2c657&attid=0.1&disp=attd&realattid=ii_126bcf7689e2c657&zw
 

Nenhum comentário:

Postar um comentário

diHITT - Notícias