Quantcast
Channel: Últimos conteúdos
Viewing all articles
Browse latest Browse all 14190

Converter String com iniciais maiúsculas

$
0
0

Olá Galera!

 

Preciso de uma função para converter todas as iniciais em Maiusculas.

 

Achei essa função, mas está me apresentando um erro e não consegui enxergar esse erro.

 

Function maiuscula(str)
  MeuArray = Split(str," ")
  for i = LBound(MeuArray) to UBound(MeuArray)
     resultado = resultado & UCase(LEFT(MeuArray(i),1)) & LCase(RIGHT(MeuArray(i),Len(MeuArray(i))-1)) & " "
  next
  maiuscula = resultado
End Function

 

Me apresenta erro no RIGHT...

"Chamada de procedimento ou argumento inválido: 'RIGHT'"

 

Alguém tem alguma função melhor pra isso?

 

Eu estou usando MySQL, tenho um form de alteração de dados, mas não sei o porque, ao adicionar ou atualizar, tudo é adicionado em minúsculo... Não tem nenhuma função sendo usado como o LCASE... para transformar pra minúsculo... o que pode ser ?

 


Viewing all articles
Browse latest Browse all 14190