|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Verificando se uma letra tem acento
|
 |
|
|
|
Postada em 22/4/2003 por n33x
n33x@neting.com
'Esta função retorna True se a letra
'passada for uma dessas abaixo:
' _____________________
'|ÀÁÂÃÄÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛ|
'|àáâãäèéêëìíîïòóôõöùúû|
' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
'Ou seja, retorna se a letra passada tem acento ou não
Function TemAcento(Letra As String) As Boolean
TemAcento = False
CodLetra = Asc(Left(Letra, 1))
Acentuadas = "192193194195196200" & _
"201202203204205206" & _
"207209210211212213" & _
"214217218219220221"
AcentuadasExclusivas = "159255"
For i = 1 To ((Len(Acentuadas) + Len(AcentuadasExclusivas)) - 2) Step 3
CodLetraAtual = Mid(Acentuadas, i, 3)
If (CodLetra = Val(CodLetraAtual)) Or (CodLetra = (Val(CodLetraAtual) + 32)) Then
TemAcento = True
Exit Function
End If
DoEvents
Next
For i = 1 To (Len(AcentuadasExclusivas) - 2) Step 3
CodLetraAtual = Mid(AcentuadasExclusivas, i, 3)
If (CodLetra = Val(CodLetraAtual)) Then
TemAcento = True
Exit Function
End If
DoEvents
Next
End Function
|
|
|
|
|
