Salve, ho un lavoro urgente da consegnare entro domani ma non riesco a finirne l'ultima parte. Come da titolo, sono arrivato a calcolare la lettera di controllo del codice fiscale, con questa parte di codice qua:
Dim n As Integer
Dim ss As Integer
Dim cifre_d = New Integer() {1, 0, 5, 7, 9, 13, 15, 17, 19, 21, 1, 0, 5, 7, 9, 13, 15, 17, 19, 21, 2, 4, 18, 20, 11, 3, 6, 8, 12, 14, 16, 10, 22, 25, 24, 23}
For b As Integer = 1 To codice_fiscale.Length
codice_fiscale = Mid(codice_fiscale, b, 1)
If (b Mod 2) = 0 Then '----------------POSIZIONE DISPARI------------
n = Asc(cod_fisc2)
If n > 62 Then
ss = ss + (n - 55)
'n-65=10
Else
ss = ss + cifre_d(n - 48)
End If
Else '------ POSIZIONE PARI ----------
If n > 62 Then
ss = n - 65
Else
ss = n - 48
End If
End If
Next
Label2.Text = ss
ss = ss Mod 26 + 65
cod_fisc2 = Chr(ss)
Label10.Text = cognome & nome & ddn_s & codice_comune + cod_fisc2
E di calcolare la calcola, ma sbagliata. Quando dovrebbe darmi K ad esempio, mi da L, oppure S al posto di O, e non capisco il perchè. Vi prego è urgente, spero che almeno voi possiate aiutarmi