USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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")
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página