Codice fiscale numerico a 11 cifre

[osval...@gmail.com]

Cioa ragazzi, grazie per la risposta,questa volta vi chiedo se
qualcuno ha sviluppato, in Excel 2003 la formula
per il controllo formale del Codice Fiscale a 11 cifre attribuito a
soggetti diversi dalle persone fisiche, ho trovato
quella sul Codice Fiscale tradizionale con 16 caratteri alfanumerici
ma su quello a 11 cifre non ho trovato niente.
Mauro o Maurizio o Norman, e non vi cito tutti perche' siete in tanti
bravissimi, potete dedicarvi a risolvere questo
problemino ?(per voi praticamente una bazzecola) vi ringrazio.
Tanti auguri ancora a tutti nessuno escluso.

[Maurizio Borrelli]

"osval...@gmail.com" wrote in message
news:cedd2939-d0eb-4f70...@i3g2000hsf.googlegroups.com:

> vi chiedo se
> qualcuno ha sviluppato, in Excel 2003 la formula
> per il controllo formale del Codice Fiscale a 11 cifre attribuito a
> soggetti diversi dalle persone fisiche, ho trovato
> quella sul Codice Fiscale tradizionale con 16 caratteri alfanumerici
> ma su quello a 11 cifre non ho trovato niente.

Ciao osvaldaccio.

Non so se ho capito bene, ma quello non segue le stesse norme delle
partite I.V.A.? Se e' cosi' allora:

Verifica della correttezza formale del numero di partita IVA
http://www.riolab.org/viewrisorsa.asp?id=10

--
(Facci sapere se e eventualmente come hai risolto. Grazie.)

Ciao :o) Microsoft MVP (Excel)
Maurizio https://mvp.support.microsoft.com/profile/Maurizio.Borrelli
-------- Spazio personale di Maurizio Borrelli
?SPQR(C) http://spdmb.spaces.live.com
 X       RIO - Risorse in italiano per gli utenti di office
-------- http://www.riolab.org

[casanmaner]

Questa volta posso essere di aiuto.
Questa funzione (originale nel senso che l'ho creata io) restituisce vero o
falso se l'ultimo numero inserito nella partita iva/codice fiscale delle
"persone giuridiche".
è corretto
ciao

Function FNumeroControlloPI(PI As String) As Boolean
Dim TotNdisp As Integer
Dim Npari2 As String
Dim NPari2S As Integer
Dim TotNpari As Integer
Dim Tot As Integer
Dim NumeroControllo As Integer

If Len(PI) <> 11 Then FNumeroControlloPI = False: Exit Function

For i = 1 To 10 Step 2
TotNdisp = TotNdisp + CInt(Mid(PI, i, 1))
Next i

For i = 2 To 10 Step 2
Npari2 = CStr(2 * CInt(Mid(PI, i, 1)))
If CInt(Npari2) < 10 Then
TotNpari = TotNpari + CInt(Npari2)
Else
NPari2S = CInt(Left(Npari2, 1)) + CInt(Right(Npari2, 1))
TotNpari = TotNpari + CInt(NPari2S)
End If
Next i
Tot = TotNdisp + TotNpari
NumeroControllo = CInt(Right(10 - Right(Tot, 1), 1))

If NumeroControllo = CInt(Right(PI, 1)) Then
FNumeroControlloPI = True
Else
FNumeroControlloPI = False
End If
End Function

[lorenzo....@gmail.com]

Qualcuno ha sviluppato un regex che verifichi il codice sia per persone fisiche che giuridiche?

[Ammammata]

Il Tue, 29 Apr 2014 02:12:59 -0700, lorenzo.detomasi ha scritto:

> Qualcuno ha sviluppato un regex che verifichi il codice sia per persone
> fisiche che giuridiche?

i tool di creazione/controllo del CF sono *quasi* sempre validi, infatti
ci sono i casi di OMOCODIA: http://it.wikipedia.org/wiki/Omocodia per cui
un CF potrebbe essere corretto dal punto di vista "matematico" ma non
essere comunque giusto



--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\