|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Capitular Iniciais do Nome
|
 |
|
|
|
Postada em 15/9/2003 por Brexuega
' como capitular as iniciais de um nome
' ex: vc escreve manel tonio de matos e aparece Manel Tonio de Matos
' chamar a função no evento LostFocus da TextBox
----------------------------------------------------------------------
Public Function CapitulaTexto(ByVal texto As String) As String
Dim x As Integer
Dim Controlo As Boolean
Dim str As String
str = UCase(Mid(texto, 1, 1))
For x = 2 To Len(texto)
If Controlo Then
If Mid(texto, x, 3) <> "de " And Mid(texto, x, 3) <> "da " And Mid(texto, x, 3) <> "do " Then
str = str & UCase(Mid(texto, x, 1))
Else
str = str & Mid(texto, x, 1)
End If
Controlo = False
Else
str = str & Mid(texto, x, 1)
End If
If Mid(texto, x, 1) = " " Then Controlo = True
Next x
CapitulaTexto = str
End Function
----------------------------------------------------------------------
¥ ADS
|
|
|
|
|
