[Resolvido] Converte a primeira Letra para Maiuscula

[Nilson Claiton Morgenstern 0]

'Retorna na função o valor de retorno

 

Function PrimeiraMaiuscula$(Texto$)

Dim Cont&, Letra$, TexToNovo$, Antes$, Primeira&

 

For Cont = 1 To Len(Texto)

Letra = Mid(Texto, Cont, 1)

 

If Antes = " " Then

TexToNovo = TexToNovo & UCase(Letra)

Antes = Letra

Else

If Primeira = 0 Then

TexToNovo = TexToNovo & UCase(Letra)

Primeira = 1

Else

TexToNovo = TexToNovo & LCase(Letra)

End If

Antes = Letra

End If

Next

PrimeiraMaiuscula = TexToNovo

End Function

 

programacao@freissoftwares.com.br

[preda 0]

Por que voce não usa Ucase ?

[Dennys Lopes 0]

Usa o StrConv ... bem mais simple:Text1 = StrConv(Text1, vbProperCase)

[Claudio Neto 3]

Peguei esta resposta no PHP.net

Não entendi, se a função é de PHP, porque postou aqui?

[J4P0N315 0]

Concordo.

 

Por que não usar Ucase?

[gajowebmaster 0]

http://forum.imasters.com.br/public/style_emoticons/default/natal_sad.gif Ops....Deculpa ai pessoal nem vi que era Dlephi .....

 

MODERADOR sera que da pra mover pra gente.... http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif

[Thiago Thamiel 0]

http://forum.imasters.com.br/public/style_emoticons/default/natal_sad.gif Ops....Deculpa ai pessoal nem vi que era Dlephi .....

 

MODERADOR sera que da pra mover pra gente.... http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif

Dlephi ou Delphi ?

 

hahahaha, desculpas mais não podia deixar passar essa, 3 foras seguidos haha..

 

http://forum.imasters.com.br/public/style_emoticons/default/natal_laugh.gif

[Claudio Neto 3]

É cada um que aparece né...