USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página