|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Pegar o primeiro nome de uma string.
|
 |
|
|
|
Postada em 13/2/2004 por PC
Private Sub Form_Load()
'assim chama a funão
MsgBox FirstNome("Fulano de Tal de Ninguém Mais Ochente")
'retornará "Fulano"
End Sub
'No módulo ou em um form:
Function FirstNome(ByVal sNome As String) As String
Dim sNom As String
Dim iPos As Integer
sNome = Trim(sNome)
For iNum = 1 To Len(sNome)
sNom2 = Mid(sNome, iNum, 1)
If sNom2 = " " Then
iPos = iNum
Exit For
End If
Next
sNom = Left(sNome, iPos - 1)
FirstNome = sNom
End Function
|
|
|
|
|
