Il codice fiscale (metodo di calcolo)

RSS	MRA	79	B	11	C566	R	
111	111	00	1	00	1000	1	

• un 1 indica la presenza di una lettera in quella posizione
• uno 0 indica la presenza di un numero in quella posizione

• RSS ricavato dal cognome (solo caratteri)
  per la codifica vedi: Codifica del Cognome
• MRA ricavato dal nome (solo caratteri)
  per la codifica vedi: Codifica del Nome
• 79 Ultime due cifre dell’anno di nascita (solo numeri)
• B Mese di nascita (una lettera) codificato secondo la seguente tabella:
  01 Gennaio A
  02 Febbraio B
  03 Marzo C
  04 Aprile D
  05 Maggio E
  06 Giugno H
  07 Luglio L
  08 Agosto M
  09 Settembre P
  10 Ottobre R
  11 Novembre S
  12 Dicembre T
• 11 Giorno di nascita (solo numerico) a cui va sommato:
  - se di sesso maschile 0
  - se di sesso femminile 40
• C566 Codice Erariale del comune di nascita, composto da una lettera seguita da tre cifre
  per trovare i codice erariale vedi Cerca comuni italiani
• R codice di controllo codificato in base ai caratteri precedenti
  (si tratta di una invenzione della IBM degli anni ‘50, chiamata C.I.N.)
  per la codifica vedi: Calcolo del C.I.N.

Compattazione del Cognome

Compattazione del Nome

• la prima, identica alla compattazione del cognome, che chiamiamo codifica parziale
• la seconda parte dalla codifica parziale per ottenere la codifica finale e verrà descritta qui di seguito

Compattazione finale del Cognome e del Nome

Calcolo del C.I.N.

• Si parte dalla stringa composta da:
  - codice del cognome
  - codice del nome
  - ultime due cifre dell’anno di nascita
  - codifica del mese di nascita
  - giorno di nascita
  - Codice Erariale
• a questo punto si valuta carattere per carattere:
  - se è una lettera si ricava il codice ASCII e si sottrae 65 (A)
  - e se è una cifra si ricava il codice ASCII e si sottrae 48 (0)
  questo per ricavare sempre un numero compreso tra 0 e 25 (cifra). Controllare inoltre che il carattere o numero trovati siano quelli che ci si aspettava in questa posizione (vedi tabella 1).
• se si tratta di un carattere in posizione dispari:
  - sommare a CIN il valore ricavato dalla tabella 2, nel seguente modo:
  andare a leggere il valore di cifra nella colonna con la lettera (L) e utilizzare il valore della colonna successiva (V) per sommarlo a totale
• se si tratta di un carattere in posizione pari:
  - memorizzare nella variabile CIN il valore di cifra
• ripetere le due frasi precedenti fino al 15esimo carattere
• applicare la seguente formula a CIN:
  CIN = (CIN - INT(CIN / 26) *26) + 65
  dove INT e una funzione che restituisce il numero privo della parte decimale, mentre 65 e il codice ASCII corrispondente alla lettera ‘A’. CIN restituirà un valore compreso tra 0 e 25 che sommato a 65 darà il codice ASCII di una lettera dell’alfabeto.

Gestione Omocodia

Programmi di esempio per il calcolo del CIN

'Dove cf è una stringa contenente i primi 15 caratteri del codice fiscale da controllare 
'(non gestisce i casi di Omocodia)
Function CalcolaCIN (cf As String) As String
    
    Dim cin As Integer, i As Integer, alterna As Integer, car As Integer
    Dim num  As String * 1
    Const CARATTERIDISPARI = 1
    Const NUMLETT = "111111001001000"	‘ 1 = lettera, 0 = Numero
    Const TD = "0100050709131517192102041820110306081214161022252423"
    alterna = 1

    For i = 1 To 15
        car = Asc(Mid$(cf, i, 1))
        If car > 47 And car < 58 Then			'cifre da 0 a 9
            car = car - 48
            num = "0"
        ElseIf car > 64 And car < 91 Then		'lettere
            car = car - 65
            num = "1"
        Else
            num = "3"
        End If
	
        'se c'é una discordanza sulla posizione lettera/numero
        If num <> Mid$(NUMLETT, i, 1) Then
            'memorizza la posizione dell'errore ed esci, ritorna una stringa > 1 carattere
            CalcolaCIN = Str(i) + "Errore"
            Exit Function
        End If

        If alterna = CARATTERIDISPARI Then
            cin = cin + Val(Mid$(TD, car * 2 + 1, 2))	‘Legge un numero nella stringa TD
            alterna = 0
        Else
            cin = cin + car
            alterna = 1
        End If
    Next i

    cin = (cin - Int(cin / 26) * 26) + 65
    'Ritorna una stringa di un carattere contenente il CIN
    CalcolaCIN = Chr$(cin)
        
End Function

Programmi di esempio per il controllo del Codice Fiscale

tmp = codice fiscale completo

    If CalcolaCIN(Left$(tmp, 15)) <> Right$(tmp, 1) Then
        MsgBox ("Errore nel Codice Fiscale")
    Else
        MsgBox ("Codice Fiscale esatto")
    End If 

Programmi di esempio per la codifica della parte contenente la Data

' strdata formato =  GGMMAA oppure GGMMAAAA
'passare strdata nel formato ggmmaa o ggmmaaaa
'sesso se = 0 é maschile, se = 1 é femminile
Function DecodificaData (strdata As String, sesso As Integer) As String
Dim i As Integer
    Dim mesi, risultato As String
        
    'MESI CODIFICATI
    Const mesi = "ABCDEHLMPRST"

    risultato = Right$ (strdata, 2)							‘Legge anno
    risultato = risultato + Mid$ (mesi, Val(Mid$(strdata, 3, 2)), 1)			‘codifica mese in lettera
    risultato = risultato + Right$ ("0" + Trim(Str(Val(Left$(strdata, 2)) + 40 * sesso)), 2)	‘legge giorno + sesso * 40

    DecodificaData = risultato							‘data nel formato AAMGG
End Function

Programmi di esempio per l’eliminazione dei simboli

'stringa  =  stringa da cui eliminare i simboli
Function EliminaSimboli (stringa As String) As String
    Dim i As Integer, risultato As String, car As String * 1
    
    stringa = UCase$(stringa)
    For i = 1 To Len(stringa)
        car = Mid$(stringa, i, 1)
        If car >= "0" And car <= "Z" Then			'considera solo (?) i numeri e le lettere maiuscole
            risultato = risultato + car
        End If
    Next i
    EliminaSimboli = risultato
End Function

Programmi di esempio per la codifica del nome o del cognome

'stringa  =  nome o cognome passati alternativamente
'nc = 1     codifica nome, nc = 0     codifica cognome
Function CodificaCognomeNome (stringa As String, nc As Integer) As String
    Dim i As Integer, vocali As String
    Dim conson As String, car As String * 1
    
    stringa = EliminaSimboli (stringa)
    For i = 1 To Len(stringa)
        car = Mid$(stringa, i, 1)
        If InStr("AEIOU", car) <> 0 Then				'separa le consonanti dalle vocali
            vocali = vocali + car
        Else
            conson = conson + car
        End If
    Next i
    CodificaCognomeNome = Left$(conson + vocali + "X", 3)
    If nc = 1 And Len(conson) > 3 Then				'nome
        CodificaCognomeNome = Left$(conson, 1) + Mid$(conson + vocali, 3, 2) + vocali + "X"
    End If
End Function