|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Datas/Números/Strings)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Função que Inverte Nomes (Sobrenome, Nome)
|
![](images/box01dirsup.gif) |
|
|
Postada em 14/8/2000 por Webmaster
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"
|
|
|
|
![](images/hosted.gif)
|