Varie. Calcolo del prefisso telefonico di una località
		Stampa	Torna Indietro
Linguaggio: Visual Basic	Autore: Gianni Buttà		Data Archiviazione: 14/07/1999

'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