Italian Libreria Codice fiscale free

Discussion in 'Italian Forum' started by roberto64, Apr 16, 2015.

  1. roberto64

    roberto64 Active Member Licensed User

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

    Attached Files:

    nonno likes this.
  2. pappicio

    pappicio Active Member Licensed User

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

    Code:
    Sub checkcode(s As StringAs 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 12345691216
           
    If IsNumber(ss) = True Then
           
    Return False
           
    End If
           
    Case 781011131415
           
    If IsNumber(ss) = False Then
           
    Return False
           
    End If
         
    End Select
       
    Next
       
    Return True
    End Sub
     
  3. maXim

    maXim Active Member Licensed User

    sirjo66 likes this.
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice