Calcolo codice fiscale
Lobelis
creato inserendo un file (sacricato da internet) in excel
che calcola il codice fiscale, ma non riesco a farlo
funzionare.
In pratica se digito nome e cognome mi calcola il cod.
fisc. esatto se invece il nome e il cognome lo ricavo da
una formula (da un altro foglio) mi tira fuori soltanto
una o 2 lettere del nome o del cognome (Es. Rossi mi dà RS
o R invece di RSS). Credo che ci sia da modificare
qualcosa sulla seguente routine:
Sarei grato se qualcuno potesse dare un'occhiata e dirmi
se c'è da fare qualche modifica
Grazie mille
Function voc(x)
If x = "A" Or x = "E" Or x = "I" Or x = "O" Or x = "U" Then
voc = True
Else
voc = False
End If
End Function
Function cognome(x)
x = UCase(x)
a$ = ""
co = 0
vo = 0
While Len(x) < 3
x = x + "X"
Wend
For i = 1 To Len(x)
m$ = Mid(x, i, 1)
If voc(m$) Then
vo = vo + 1
Else
co = co + 1
End If
Next i
If co > 3 Then
co = 3
End If
vo = 3 - co
For i = 1 To Len(x)
m$ = Mid(x, i, 1)
If Not voc(m$) And co > 0 Then
a$ = a$ + m$
co = co - 1
End If
Next i
For i = 1 To Len(x)
m$ = Mid(x, i, 1)
If voc(m$) And vo > 0 Then
a$ = a$ + m$
vo = vo - 1
End If
Next i
cognome = a$
End Function
Function nome(x)
x = UCase(x)
a$ = ""
co = 0
vo = 0
salta = False
While Len(x) < 3
x = x + "X"
Wend
For i = 1 To Len(x)
m$ = Mid(x, i, 1)
If voc(m$) Then
vo = vo + 1
Else
co = co + 1
End If
Next i
If co > 3 Then
co = 3
salta = True
End If
vo = 3 - co
For i = 1 To Len(x)
m$ = Mid(x, i, 1)
If Not voc(m$) And co > 0 Then
If salta And co = 2 Then
salta = False
Else
a$ = a$ + m$
co = co - 1
End If
End If
Next i
For i = 1 To Len(x)
m$ = Mid(x, i, 1)
If voc(m$) And vo > 0 Then
a$ = a$ + m$
vo = vo - 1
End If
Next i
nome = a$
End Function
anon...@discussions.microsoft.com
>creato inserendo un file (sacricato da internet) in excel
>che calcola il codice fiscale, ma non riesco a farlo
>funzionare.
>In pratica se digito nome e cognome mi calcola il cod.
>fisc. esatto se invece il nome e il cognome lo ricavo da
>una formula (da un altro foglio) mi tira fuori soltanto
>una o 2 lettere del nome o del cognome (Es. Rossi mi dà
>RS o R invece di RSS).
E' meglio se ci indichi da dove l'hai scaricato.
--
Tiziano Marmiroli
Microsoft Mvp - Office
SergioBS
"Lobelis" <anon...@discussions.microsoft.com> ha scritto nel messaggio
news:1f22e01c4576b$9ec93480$a501...@phx.gbl...
Ciao a tutti, sto cercando di adattare un foglio da me
creato inserendo un file (sacricato da internet) in excel
che calcola il codice fiscale, ma non riesco a farlo
funzionare.
In pratica se digito nome e cognome mi calcola il cod.
fisc. esatto se invece il nome e il cognome lo ricavo da
una formula (da un altro foglio) mi tira fuori soltanto
una o 2 lettere del nome o del cognome (Es. Rossi mi dà RS
o R invece di RSS). Credo che ci sia da modificare
qualcosa sulla seguente routine:
Sarei grato se qualcuno potesse dare un'occhiata e dirmi
se c'è da fare qualche modifica
Grazie mille
Io l'ho provato mettendo sia il mio nome nella formula:
=nome("Sergio Cesare") che mettendo il nome "Sergio Cesare" in A5 e
digitando la formula in questo modo:
=Nome(A5)
Il risultato che esce è sempre lo stesso ovvero "SRG"
pertanto probabilmente non ho capito cosa tu intenda...
il problema è che il risultato è SBAGLIATO.....
Consiglio... cerca un'altra routine..
Sergio
cucchiaino
news:1f22e01c4576b$9ec93480$a501...@phx.gbl...
creato inserendo un file (sacricato da internet) in excel
che calcola il codice fiscale, ma non riesco a farlo
funzionare.
In pratica se digito nome e cognome mi calcola il cod.
fisc. esatto se invece il nome e il cognome lo ricavo da
una formula (da un altro foglio) mi tira fuori soltanto
una o 2 lettere del nome o del cognome (Es. Rossi mi dà RS
o R invece di RSS). Credo che ci sia da modificare
qualcosa sulla seguente routine:
Sarei grato se qualcuno potesse dare un'occhiata e dirmi
se c'è da fare qualche modifica
Grazie mille
===================================
Penso che l'errore sia dovuto alla presenza di spazi
a sinistra o a destra del nome o del cognome.
Quindi ti consiglio di usare almeno la funzione trim(stringa) e
cioè:
x = UCase(trim(x))
Guarda sull'help anche la funzione replace() eventualmente.
( )---cucchiaino
---------------
Invia una email a it.office @ mvps.org con oggetto "Richiesta it.office"
per ricevere gratuitamente la newsletter di IT.OFFICE: un valido aiuto
sugli strumenti di Office.