Dim sCognome As String, sNome As String
Dim sVocali As String, sConsonanti As String, sTemp As String
' Cognome
sCognome = UCase(txtcognome)
For iCnt = 1 To Len(sCognome)
If InStr("AEIOU", Mid(sCognome, iCnt, 1)) Then
sVocali = sVocali + Mid(sCognome, iCnt, 1)
ElseIf InStr("BCDFGHJKLMNPQRSTVWXYZ", Mid(sCognome, iCnt, 1)) Then
sConsonanti = sConsonanti + Mid(sCognome, iCnt, 1)
End If
If (Len(sConsonanti) = 3) Then
Exit For
End If
Next iCnt
If (Len(sConsonanti) < 3) Then
sConsonanti = sConsonanti + Left(sVocali, 3 - Len(sConsonanti))
End If
If (Len(sConsonanti) < 3) Then
sConsonanti = sConsonanti + String(3 - Len(sConsonanti), "X")
End If
sCodFiscale = sConsonanti
' Nome
sNome = UCase(txtnome)
sVocali = Empty
sConsonanti = Empty
For iCnt = 1 To Len(sNome)
If InStr("AEIOU", Mid(sNome, iCnt, 1)) Then
sVocali = sVocali + Mid(sNome, iCnt, 1)
ElseIf InStr("BCDFGHJKLMNPQRSTVWXYZ", Mid(sNome, iCnt, 1)) Then
sConsonanti = sConsonanti + Mid(sNome, iCnt, 1)
End If
Next iCnt
If (Len(sConsonanti) >= 4) Then
sConsonanti = Left(sConsonanti, 1) & Mid(sConsonanti, 3, 2)
ElseIf (Len(sConsonanti) <> 3) Then
sConsonanti = Left(sConsonanti & sVocali, 3)
If (Len(sConsonanti) < 3) Then
sConsonanti = Left(sConsonanti & "XXX", 3)
End If
End If
If (Len(sConsonanti) < 3) Then
sConsonanti = sConsonanti + String(3 - Len(sConsonanti), "X")
End If
sCodFiscale = sCodFiscale & sConsonanti
Questo topic è stato chiuso dal moderatore
Be è semplice...Dovrei creare in VB il calcolo del codice fiscale. Ma nn completo, sl la parte inerente al Cognome e al Nome dell'individuo ke lo utilizza. Naturalmente mi servono funzioni cm la Len e la Mid. Ma ci sto sbattendo la testa da 4 ore e nn sn ancora riuscito a creare qualcosa di decente 
. Se potete darmi una mano!! Altrimenti grazie cmq dell'attenzione 
