Simplesmente extraia o último sobrenome de um nome completo ou a última palavra de uma frase.
Function UltimoNome (s As String)
Dim nPos As Long, nLen As Long
's = "Ana Cláudia"
Let nPos = InStrRev (s, ",")
Let nLen = Len (s)
Let UltimoNome = Right (s, Len (s) - InStrRev (s, ","))
End Function
Conheça também estes outros códigos:
Série de Livros nut Project
Série DONUT PROJECT 2015
Clique aqui e nos contate via What's App para avaliarmos seus projetos


Nenhum comentário:
Postar um comentário