Italian Libreria Codice fiscale free

salve a tutti, a chi può essere utile questa libreria free per il calcolo del codice fiscale.
saluti Roberto T.

 

io invece posto il check del codice fiscale in una piccolissima sub:

Code:

Sub checkcode(s As String) As Boolean
   If s.Length <> 16 Then
   Return False
   End If
   For x = 0 To s.Length - 1
   Dim ss As String = s.SubString2(x, x + 1)
     Select Case x + 1
       Case 1, 2, 3, 4, 5, 6, 9, 12, 16
       If IsNumber(ss) = True Then
       Return False
       End If
       Case 7, 8, 10, 11, 13, 14, 15
       If IsNumber(ss) = False Then
       Return False
       End If
     End Select
   Next
   Return True
End Sub

 

Ciao a Tutti,

non so se può essere utile ma in db2000.B4(x).eXtrafunctions c'è una classe con dei metodi simili (fITALIANFISCALTOOLS)...