Função Apresentar apenas a primeira letra de uma string como maiúscula (utilizada em nomes)
<% Function PrimeiraLetraMaiuscula(ByVal texto)
Dim palavras, i, palavra, excecoes, resultado
' Lista de palavras que devem permanecer em minúsculas
excecoes = Array("da", "de", "di", "do", "du")
' Dividir o texto em palavras
palavras = Split(LCase(texto), " ")
' Inicializar a variável de resultado
resultado = ""
' Iterar por cada palavra no texto
For i = 0 To UBound(palavras)
palavra = palavras(i)
' Verificar se a palavra está na lista de exceções
If InStr(1, Join(excecoes, " "), palavra) > 0 Then
resultado = resultado & palavra
Else
' Converter a primeira letra para maiúscula e o restante para minúsculas
resultado = resultado & UCase(Left(palavra, 1)) & Mid(palavra, 2)
End If
' Adicionar um espaço entre as palavras (exceto no final)
If i < UBound(palavras) Then
resultado = resultado & " "
End If
Next
' Retornar o resultado
PrimeiraLetraMaiuscula = resultado
End Function
%>
