'Nota: Per funzionare bisogna linkare tutta
'la procedura per il calcolo completo del 'codice fiscale Function PREF(Localita, Pr As String) As String Dim Lo1, Lo2, p As String, D, M, E As Integer Localita = StrConv(Localita, vbUpperCase) D = Len(Localita) If D > 18 Then D = 18 p = StrConv(Pr, vbUpperCase) M = 3 If p = "" Then GoTo Vai If Not p Like "[A-Z][A-Z]" Then MsgBox ("Inserire le due cifre relative alla Provincia") Vai: Lo1 = "" Lo2 = "" For i = 1 To D Lo1 = Mid(Localita, i, 1) If Lo1 = " " Then Lo1 = "" If Lo1 = "'" Then Lo1 = "" If Lo1 = "-" Then Lo1 = "" If Lo1 = "." Then Lo1 = "" If Lo1 = "À" Then Lo1 = "A" If Lo1 = "È" Then Lo1 = "E" If Lo1 = "É" Then Lo1 = "E" If Lo1 = "Ì" Then Lo1 = "I" If Lo1 = "Ò" Then Lo1 = "O" If Lo1 = "Ù" Then Lo1 = "U" Lo2 = Lo2 + Lo1 Next i E = Len(Lo2) If PREF = "" Then PREF = Loc1(Lo2, p, E, M) If PREF = "" Then PREF = Loc2(Lo2, p, E, M) If PREF = "" Then PREF = Loc3(Lo2, p, E, M) If PREF = "" Then PREF = Loc4(Lo2, p, E, M) If PREF = "" Then PREF = Loc5(Lo2, p, E, M) If PREF = "" Then PREF = Loc6(Lo2, p, E, M) If PREF = "" Then PREF = Loc7(Lo2, p, E, M) If PREF = "" Then PREF = Loc8(Lo2, p, E, M) If PREF = "" Then PREF = Loc9(Lo2, p, E, M) If PREF = "" Then PREF = Loc10(Lo2, p, E, M) If PREF = "" Then PREF = Loc11(Lo2, p, E, M) If PREF = "" Then PREF = Loc12(Lo2, p, E, M) If PREF = "" Then PREF = Loc13(Lo2, p, E, M) End Function |