Calcular NIF

Calcular la letra del NIF, es sencillo sigue los siguientes pasos:

1.- Dividir por 23 el DNI y prescindir de los decimales.

2.- Multiplica ese numero por 23 y restarlo del DNI.

3.- Te saldrá un número del 0 al 23, entonces solo tienes que aplicar la siguiente tabla:

1R 2W 3A 4G 5M 6Y 7F 8P 9D 10X 11B 12N 13J 14Z 15S 16Q 17V 18H 19L 20C 21K 22E 23T 0T

4.- Ahora ya sabes como calcular la letra del NIF.

Bueno, pues aquí tienes una función para calcularlo, como ya dijo Pedro, es bastante sencilla de realizar, tienes varias maneras, pero esta es la mía, si te gusta la coges.

Function CalcularNIF(ByVal DNI As Long) As String
   Select Case DNI - (Int(DNI / 23) * 23)
        Case 0: CalcularNIF = "T"
        Case 1: CalcularNIF = "R"
        Case 2: CalcularNIF = "W"
        Case 3: CalcularNIF = "A"
        Case 4: CalcularNIF = "G"
        Case 5: CalcularNIF = "M"
        Case 6: CalcularNIF = "Y"
        Case 7: CalcularNIF = "F"
        Case 8: CalcularNIF = "P"
        Case 9: CalcularNIF = "D"
        Case 10: CalcularNIF = "X"
        Case 11: CalcularNIF = "B"
        Case 12: CalcularNIF = "N"
        Case 13: CalcularNIF = "J"
        Case 14: CalcularNIF = "Z"
        Case 15: CalcularNIF = "S"
        Case 16: CalcularNIF = "Q"
        Case 17: CalcularNIF = "V"
        Case 18: CalcularNIF = "H"
        Case 19: CalcularNIF = "L"
        Case 20: CalcularNIF = "C"
        Case 21: CalcularNIF = "K"
        Case 22: CalcularNIF = "E"
        Case 23: CalcularNIF = "T"
    End Select
End Function

Esta es mucho más cortita, más cómoda de manejar, ¿verdad?. 😉

Public Function sCalculaNif(ByVal DNI As Long) As String
     sCalculaNif = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", 1 + DNI Mod 23, 1)
End Function
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s