1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Public Function MajAcc(s)
Dim i As Integer, j As Integer, c As String
MajAcc = ""
If Not IsNull(s) Then
For i = 1 To Len(s)
Select Case Mid(s, i, 1)
Case "Ä", "Á", "Â", "À": MajAcc = MajAcc & "A"
Case "É", "Ê", "Ë", "È": MajAcc = MajAcc & "E"
Case "Ç": MajAcc = MajAcc & "C"
Case "Í", "Î", "Ï": MajAcc = MajAcc & "I"
Case "Ö", "Ô": MajAcc = MajAcc & "O"
Case "Ü", "Û", "Ù": MajAcc = MajAcc & "U"
Case Else: MajAcc = MajAcc & ucase(Mid(s, i, 1))
End Select
Next
End If
End Function |
Partager