Letra del DNIPublicado por Maria (12 intervenciones) el 06/05/2004 13:16:56Necesito hallar la letra del DNI a partir de las cifras del dni, teneis alguien la función hecha? graciasValora esta pregunta0Responder
RE:Letra del DNIPublicado por Madridsoft (10 intervenciones) el 06/05/2004 13:37:36hola María, para cálcular la letra del DNI tan solo necesitas una función tan sencilla como esta: Dim nDNI As Long nDNI = "30604167" MsgBox CalculoLetraDNI(nDNI) Function CalculoLetraDNI2(nDNI As Long) As String Const LETRAS = "TRWAGMYFPDXBNJZSQVHLCKE" CalculoLetraDNI2 = Mid(LETRAS, (nDNI Mod 23) + 1, 1) End Function Un saludo, Agui http://www.madridsoft.com Consultas gratuitas Valora esta respuesta0Comentar
RE:Letra del DNIPublicado por Madridsoft (10 intervenciones) el 06/05/2004 13:50:07Veo que se me ha colado un 2 en el nombre de la función. La función correcta es: Function CalculoLetraDNI(nDNI As Long) As String Const LETRAS = "TRWAGMYFPDXBNJZSQVHLCKE" CalculoLetraDNI = Mid(LETRAS, (nDNI Mod 23) + 1, 1) End Function Un saludo, Agui http://www.madridsoft.com Consultas gratuitas Valora esta respuesta0Comentar
RE:Letra del DNI para MADRIDSOFTPublicado por Maria (2 intervenciones) el 06/05/2004 14:46:03Los pasaportes que tienen el formato, por ejemplo X1434290, tambien puede calcular la letra usando la misma funcion y el nº de ese dni quitandole la X. GRACIAS POR TODO Valora esta respuesta0Comentar