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:
Nenhum comentário:
Postar um comentário