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 que Inverte Nomes (Sobrenome, Nome)
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
'No módulo:
Public Function Inverte(ByVal sNome As _
       String) As String
  Dim sNom As String
  Dim iPos As Integer
  Dim iNum 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)) & ", "
  sNom = sNom + Left(sNome, (iPos - 1))
  Inverte = sNom
End Function

'P/ usar:
Dim sResult As String
sResult = Inverte("José Carlos da Silva")

'Então, sResult conterá "Silva, José Carlos da"
 


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