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