edición general
20 meneos
552 clics
Este envío tiene varios votos negativos. Asegúrate antes de menear

Un código detector de errores: la letra del DNI

Un objeto que manejamos prácticamente a diario en nuestra vida es el DNI, el documento nacional de identidad, que está formado por un número de ocho dígitos y, desde hace unos años, también una letra. Muchas personas piensan que esa letra se nos asigna de forma aleatoria, como el número, pero esto no es así. En esta entrada del Cuaderno de Cultura Científica vamos a explicar, aunque es posible que muches de vosotres ya lo conozcáis, cómo se asigna esa letra y cuál es su significado.

| etiquetas: dni , letra , detector , errores
16 4 6 K 43 cultura
25 comentarios
16 4 6 K 43 cultura
  1. manuelmace #1 manuelmace
    Me han hecho probarlo... :-D
    0 K 20
  2. #2 pandasucks
    Será la letra del NIF, me suena que el DNI no tenía letra ¿no?
    1 K 22
  3. wildseven23 #3 wildseven23
    "aunque es posible que muchas de vosotras"...

    ¿Están llamando analfaburras a las mujeres? Es que algo tan tonto como la manera de sacar la letra del DNI lo sabe todo el mundo, pero ahora parece que solo lo sabíamos los seres dotados de testículos.
    2 K 25
  4. Gry #4 Gry *
    Es de lo más práctico cuando te piden el DNI para registrarte en alguna chorrada de web y no te admite 12345678Z :-D
    0 K 12
  5. manuelmace #5 manuelmace
    #3 Tiene más pinta de ser un error de escritura. Lo cambio para los aludidos... :palm:
    0 K 20
  6. estemenda #6 estemenda *
    #3 "Vosotras, personas..." Que nunca estáis contontas, joder :troll:
    1 K 14
  7. OviOne #7 OviOne
    #2 El DNI es el Documento y el NIF el Número (de identificación fiscal, que viene en el DNI).
    1 K 30
  8. manuelmace #8 manuelmace
    #6 ¿Lo pondré mejor con 'x'? Es que la 'e' igual ya no se lleva...
    2 K 34
  10. estemenda #10 estemenda
    #8 No corras, no hay escapatoria.
    0 K 11
  11. #11 ElSev
    #4 usa el 00000014Z
    0 K 12
  12. #12 Enraged_Citizen *
    #11 00000000T 00000001R ...aunque esos si que los capan en muchos sitios
    0 K 7
  13. #13 ElSev
    #12 a ver, que era broma... Salió cuando el juicio a la infanta que alegaba que se estaba usando su DNI por error.
    0 K 12
  14. Azarías #14 Azarías *
    Otro código detector de errores es el último dígito de los códigos de barras.
    www.aecoc.es/servicios/herramientas/calculo-digito-control/
    0 K 6
  15. #15 Enraged_Citizen
    #13 A ver, que la noticia desde el principio es un poco chorrada.

    Mucha gente no sabe, pero todo el que haya trabajado mínimamente con dni. o con cifs, o con cuentas bancarias y mas cosas, sabe que hay dígitos de control, que tienen unas reglas de calculo, etc, etc. y los que nos dedicamos a estas cosas ya nos sabemos unos cuantos de memoria como el 0T el 1R o el 12345678Z... ese era mi chiste (sin gracia)
    0 K 7
  16. #16 ElSev
    #15 y luego nos toca a los analistas limpiar todas esas mierdas de las BBDD, de los CRM, de las información de facturación...
    0 K 12
  17. PeterDry #17 PeterDry
    #16 Pues "haber estudiao".
    0 K 10
  18. insulabarataria #18 insulabarataria
    #15 99999999R
    0 K 10
  19. Sendas_de_Vida #19 Sendas_de_Vida
    Ala.... Una idea...

    Public Function LetraNif(Dni As Long, Optional TipoIPF As String) As String
    Dim UniNIE_Num As String
    Dim ProcesarStrDni As String

    ProcesarStrDni = CStr(Dni)
    If Len(ProcesarStrDni) = 6 Then ProcesarStrDni = "0" & ProcesarStrDni
    If Len(ProcesarStrDni) = 5 Then ProcesarStrDni = "00" & ProcesarStrDni
    If Len(ProcesarStrDni) = 4 Then ProcesarStrDni = "000" & ProcesarStrDni
    If Len(ProcesarStrDni) = 3 Then ProcesarStrDni = "0000" & ProcesarStrDni

    ' Extranjeros o tipos especiales
    Select Case Trim(TipoIPF)
    Case "X"

    Case "Y"
    UniNIE_Num = "Y" & CStr(ProcesarStrDni)
    UniNIE_Num = Replace(UniNIE_Num, "Y", 1)
    Dni = CDbl(UniNIE_Num)
    Case "Z"
    ProcesarStrDni = CStr(Dni)
    UniNIE_Num = "Z" & CStr(ProcesarStrDni)
    UniNIE_Num = Replace(UniNIE_Num, "Z", 2)
    Dni = CDbl(UniNIE_Num)
    End Select

    LetraNif = Right(Left("TRWAGMYFPDXBNJZSQVHLCKEO", ((Dni Mod 23) + 1)), 1)
    End Function
    0 K 7
  20. XavierGEltroll #20 XavierGEltroll
    #19 ¿Qué lenguaje es ese?
    0 K 11
  21. obmultimedia #21 obmultimedia *
    editado por error
    0 K 10
  22. tranki #22 tranki
    #20 Parece Qbasic
    0 K 10
  23. Sendas_de_Vida #23 Sendas_de_Vida
    #20 Visual Basic #22
    0 K 7
  24. XavierGEltroll #24 XavierGEltroll
    #23 gràcies company.
    1 K 18
  25. Sendas_de_Vida #25 Sendas_de_Vida
    #24 No es mereixen,
    0 K 7
comentarios cerrados

menéame