Foros del Web » Programación para mayores de 30 ;) » .NET »

Validación NIE

Estas en el tema de Validación NIE en el foro de .NET en Foros del Web. Buenas tardes. Estoy con un programa en el cual lleva datos de usuario y uno de ellos es el DNI o NIE en caso de ...
  #1 (permalink)  
Antiguo 24/08/2019, 15:48
 
Fecha de Ingreso: marzo-2009
Ubicación: España
Mensajes: 371
Antigüedad: 10 años, 5 meses
Puntos: 5
Validación NIE

Buenas tardes.

Estoy con un programa en el cual lleva datos de usuario y uno de ellos es el DNI o NIE en caso de tenerlo.

Tengo un ComboBox que me da a elegir DNI o NIE, al eleje NIE actiba otro ComboBox que me da a elegie la letra que lleva dicho NIE, (X, Y, Z).

Hasta aquí todo bien.

La cosa es, como hacer que al poner en el TexBox el NIE que son 7 números me sume la variable del primer ComboBox LETRA me calcule la letra final para colocarla en el TexBox que corresponte?

Yo hice esto pero no consigo que me funcione.

Código:
Public Function NumLetrNIE()

        Dim a As Integer

        If Form_Nuevo_Usuario.CB_L_NIE.SelectedIndex = 0 Then
            a = Str(CInt(0))
            If Form_Nuevo_Usuario.CB_L_NIE.SelectedIndex = 1 Then
                a = Str(CInt(1))
                If Form_Nuevo_Usuario.CB_L_NIE.SelectedIndex = 2 Then
                    a = Str(CInt(2))
                End If
            End If
        End If

        Return a
Después tengo este otro.

Código:
Public Function Valida_NIE(ByVal NIE As TextBox)

        Dim i As Char
        i = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (CInt(NIE.Text) Mod 23) + 1, 1)
        Return i


    End Function

Y debería concatenar "a" con "i" para calcular y sacar la letra final peron o logro que camine.

Alguna ayuda por favor


Muchas gracias.



La zona horaria es GMT -6. Ahora son las 21:19.