|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Função para saber se letra é vogal
|
 |
|
|
|
Postada em 11/3/2003 por n33x
n33x@neting.com
'Esta função retorna True se a letra
'passada for uma dessas abaixo:
' ___________________________
'|AEIOUÀÁÂÃÄÅÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛ|
'|aeiouàáâãäåèéêëìíîïòóôõöùúû|
' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
'Ou seja, retorna se a letra passada é Vogal ou não
Function EhVogal(Letra As String) As Boolean
EhVogal = False
CodLetra = Asc(Left(Letra, 1))
Vogais = "065069073079085192193" & _
"194195196197200201202" & _
"203204205206207210211" & _
"212213214217218219220"
For i = 1 To (Len(Vogais) - 2) Step 3
LetraAtual = Mid(Vogais, i, 3)
If (CodLetra = Val(LetraAtual)) Or (CodLetra = (Val(LetraAtual) + 32)) Then
EhVogal = True
Exit Function
End If
DoEvents
Next
End Function
|
|
|
|
|
