Visual Basic 6 - Codice Fiscale

BuonPomeriggio! Nn so se sia il posto giusto dv postare ma ho un problema (se già nn lo si era capito :rotfl 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

Posta il codice....

hai già guardato it.wikipedia.org/wiki/…?

Si ho già visto su Wikipedia, ma il problema nn è ke nn so cm si faccia, ma nn riesco a produrre il codice... Ecco xkè cerco aiuto!

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

Spero che sia chiaro.

Grazieeeeeeeeeee!!! Finalmente ho capito dv sbagliavo Sei stato davvero gentile!

Prova qui: codicefiscale.pro

lastraven va bene avere buone intenzioni.. ma hai visto l'anno di questo post? Non credo che dopo due anni abbia ancora questo problema