|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Capitular em VB6
|
 |
|
|
|
Postada em 23/1/2008 por Ribeiro
prgisrj@gmail.com
'************************************************************* 'Faz a capitular do texto passado como parâmetro, ou seja,
' deixa a primeira letra de cada palavra como maiúscula.
'*************************************************************
Public Function Capitular(ByVal Texto As String) As String
Dim strTokens() As String
Dim i As Integer
Dim strAux As String
Dim strRetorno As String
strTokens = Split(Texto, " ")
For i = 0 To UBound(strTokens)
strAux = UCase(Mid(strTokens(i), 1, 1))
strTokens(i) = strAux & Mid(strTokens(i), 2)
Next
For i = 0 To UBound(strTokens)
strRetorno = strRetorno & strTokens(i) & Space(1)
Next
Capitular = strRetorno
End Function
|
|
|
|
|
