Access - Función

   
Vista:

Función

Publicado por sitin (15 intervenciones) el 22/10/2010 13:35:45
Tengo una funcion en Visual Basic que calcula la letra del DNI.

Lo que no se es que hay que hacer, para que cuando introduces un número de DNI, automaticamente te calcule la letra y sustituya el numero introducido por el nif.

Ejemplo:

Se introduce el numero de DNI --------> 1

lo que pretendo es que ese numero 1 se convierta en 1R

Espero vuestras respuestas

Gracias
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:Función

Publicado por elias (405 intervenciones) el 22/10/2010 17:39:20
Visual Basic

Private Function NIF(DNI As Long)
NIF = DNI & "-" & Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (DNI Mod 23) + 1, 1)
End Function

[editar] Excel


=CONCATENAR(A1;EXTRAE("TRWAGMYFPDXBNJZSQVHLCKE";RESIDUO(A1;23)+1;1))
=CONCATENATE(A1,MID("TRWAGMYFPDXBNJZSQVHLCKE",MOD(A1,23)+1,1))
=EXTRAE("TRWAGMYFPDXBNJZSQVHLCKE";1+RESIDUO(A1;23);1)

Siendo A1 la celda de origen del DNI sin letra.
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

RE:Función

Publicado por SITIN (4 intervenciones) el 22/10/2010 18:55:25
Gracias elias, pero esas funciones ya las tenia.

LO que no sé es utilizarlas (Bueno la de Excel si)

Lo que quiero es lo siguiente:

Tengo un campo que se llama DNI

Lo que pretendo es escribir un numero sin letra, por ejemplo 1

y que en ese mismo campo o en otro (no lo sé) aparezca 1R

Gracias
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