|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Função para retornar o sobrenome de uma string
|
 |
|
|
|
Postada em 19/2/2003 por The Mask
'No módulo:
Public Function sSobrenome(ByVal sNome As String) As String
Dim sNom As String
Dim iPos As Integer
sNome = Trim(sNome)
For iNum = Len(sNome) To 1 Step -1
sNom2 = Mid(sNome, iNum, 1)
If sNom2 = " " Then
iPos = iNum
Exit For
End If
Next
sNom = Right(sNome, (Len(sNome) - iPos))
sSobrenome = sNom
End Function
'Para chamar a função
Dim Sobre As String
Sobre = sSobrenome(Text1.Text)
ou
Sobre = sSobrenome("Jorge da Silva Nascimento")
|
|
|
|
|
