Visual Basic - validacion codigo fiscal italia

Life is soft - evento anual de software empresarial
   
Vista:

validacion codigo fiscal italia

Publicado por nelson (1 intervención) el 30/04/2010 20:05:35
hola a todos... soy nuevo en esto de programar,,, tengo que realizar una validacion del codigo fiscal italiano,,, tengo realizada una funcion y necesito llamarla desde un boton.... por favor que alguien me ayude.. que lo necesitan urgente en la empresa... aqui envio la funcion y la declaracion que tengo en el boton...


Private Sub Comando353_Click()
Dim validar_cf As Boolean
Dim letracontrol As String
Dim vc As String

validar_cf = False
If Len(CODICE_FISCALE) > 0 Then validar_cf = True
If validar_cf = False Then
boton = MsgBox("campo CODICE_FISCALE con valors Nulo o Vacios!!!", vbCritical, "Stop")

Else

letracontrol = Right(CODICE_FISCALE, 1)

If CODICE_FISCALE Then

vc = LETRACF(vc)

boton = MsgBox("Letra CODICE_FISCALE:" + letracontrol, vbInformation, "correcto...")
End If

End If
End Sub


y la funcion es esta....

Public Function LETRACF(ByVal CODICE_FISCALE As String) As String
Dim tmp_listapar As Integer
Dim tmp_listadispar As Integer
Dim tmp_resultado As String

CODICE_FISCALE = Right(CODICE_FISCALE, 1)
tmp_resultado = CODICE_FISCALE
tmp_resultado = tmp_listapar + tmp_listadispar / 26

Select Case tmp_listapar
Case 0: LETRACF = "0"
Case 1: LETRACF = "1"
Case 2: LETRACF = "2"
Case 3: LETRACF = "3"
Case 4: LETRACF = "4"
Case 5: LETRACF = "5"
Case 6: LETRACF = "6"
Case 7: LETRACF = "7"
Case 8: LETRACF = "8"
Case 9: LETRACF = "9"
Case 10: LETRACF = "10"
Case 11: LETRACF = "11"
Case 11: LETRACF = "12"
Case 12: LETRACF = "13"
Case 13: LETRACF = "14"
Case 14: LETRACF = "15"
Case 15: LETRACF = "16"
Case 16: LETRACF = "17"
Case 17: LETRACF = "18"
Case 18: LETRACF = "19"
Case 19: LETRACF = "20"
Case 20: LETRACF = "21"
Case 21: LETRACF = "22"
Case 22: LETRACF = "23"
Case 23: LETRACF = "24"
Case 24: LETRACF = "25"


Select Case tmp_listadispar
Case 0: LETRACF = "1"
Case 1: LETRACF = "0"
Case 2: LETRACF = "5"
Case 3: LETRACF = "7"
Case 4: LETRACF = "9"
Case 5: LETRACF = "13"
Case 6: LETRACF = "15"
Case 7: LETRACF = "17"
Case 8: LETRACF = "19"
Case 9: LETRACF = "21"
Case 10: LETRACF = "2"
Case 11: LETRACF = "4"
Case 11: LETRACF = "18"
Case 12: LETRACF = "20"
Case 13: LETRACF = "11"
Case 14: LETRACF = "12"
Case 15: LETRACF = "3"
Case 16: LETRACF = "6"
Case 17: LETRACF = "8"
Case 18: LETRACF = "12"
Case 19: LETRACF = "14"
Case 20: LETRACF = "16"
Case 21: LETRACF = "10"
Case 22: LETRACF = "22"
Case 23: LETRACF = "25"
Case 24: LETRACF = "24"
Case 25: LETRACF = "23"

End Select

tmp_resultado = tmp_listapar + tmp_listadispar Mod 26



Select Case tmp_resultado
Case 0: LETRACF = "A"
Case 1: LETRACF = "B"
Case 2: LETRACF = "C"
Case 3: LETRACF = "D"
Case 4: LETRACF = "E"
Case 5: LETRACF = "F"
Case 6: LETRACF = "G"
Case 7: LETRACF = "H"
Case 8: LETRACF = "I"
Case 9: LETRACF = "J"
Case 10: LETRACF = "K"
Case 11: LETRACF = "L"
Case 12: LETRACF = "M"
Case 13: LETRACF = "N"
Case 14: LETRACF = "O"
Case 15: LETRACF = "P"
Case 16: LETRACF = "Q"
Case 17: LETRACF = "R"
Case 18: LETRACF = "S"
Case 19: LETRACF = "T"
Case 20: LETRACF = "U"
Case 21: LETRACF = "V"
Case 22: LETRACF = "W"
Case 23: LETRACF = "X"
Case 24: LETRACF = "Y"
Case 25: LETRACF = "Z"
Case Else: LETRACF = MsgBox("No se reconoce la letra del CODICE FISCALE", vbInformation, "Stop")


End Select

End Select


esperando una pronta respuesta...... muchas graciasss...

nelson....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:validacion codigo fiscal italia

Publicado por Paladin (39 intervenciones) el 01/05/2010 01:37:29
Si vas a escribir una funcion en un modulo, la forma para llamarla a un boton es asi:

en el modulo pones:
Sub FUNCION
Escribe dentro la funcion publica y todo lo que quieras llamar

End Sub

y para llamarlo desde el boton:
Private Sub Boton_Click()
Call FUNCION
End Sub

La verdad no te entendí muy bien pero hasta donde pude ver someramente es asi, espero te ayude.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar