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:

    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
    Return True
    End Sub
  3. maXim

    maXim Active Member Licensed User

    sirjo66 likes this.
  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