Calcolare il codice fiscale

[khorne]

Ciao ragazzi,
sto creando una procedura per il calcolo del codice fiscale, c'è qualcuno che può darmi qualche dritta?
Oppure qualcuno sa dirmi dove posso trovare i metodi e le funzioni definite per le variabili di tipo String?
Grazie mille a tutti e buon lavoro!

[Daniele80]

Function isCodFis(ByVal szCFPI As String) As Integer
            Dim nLen As Integer
            Dim i As Integer
            Dim n As Integer
            Dim nRetVal As Integer
            Dim s As String

            nRetVal = 0 ' default Partita IVA 
            nLen = Len(szCFPI)

            For i = 1 To nLen
                s = Mid(szCFPI, i, 1)
                n = Asc(s)
                If n <> 32 Then
                    If (n > 47 And n < 58) Then ' se numerico 
                        nRetVal = 0 ' partita iva 
                    Else
                        nRetVal = 1 ' altrimenti codice fiscale 
                    End If ' 
                    Exit For
                End If
            Next
            Return nRetVal
        End Function

spero che ti basti...

[khorne]

Grazie daniele,
fortunatamente ho già risolto, effettivamente mi serviva proprio tutta la procedura per il calcolo del codice fiscale, quello che mi hai postato sembra una procedura per effettuare un controllo su C.I. o partita iva...
comunque grazie davvero!

[Daniele80]

con la mia funzione fai tutti e 2 le cose.

[khorne]

scusa ma non ritorna "1" o "0"?
come fai a dire che la tua procedura calcola il codice fiscale?!?
Dove vai ad esempio a prendere le prime tre vocali del cognome, la prima la terza e la quarta del nome,... etc, ect...
scusa la mia ignoranza, ma non mi sembra proprio che la tua funzioni mi calcoli il codice fiscale dati Nome, Cognome, data di nascita, sesso, luogo di nascita...
ti prego correggimi se sbaglio perchè sarebbe davvero bello se bastassero queste 15/20 righe!!!