Access - Extraer de carne de identidad CI los 6 primeros digitos

Campo_Fecha = DateSerial( Mid(Documento_1, 1,2) , Mid(Documento_1, 3,2) , Mid(Documento_1, 5,2) )

Documento_1 ="00022402788"

?DateSerial(Mid(Documento_1, 1,2), Mid(Documento_1, 3,2), Mid(Documento_1, 5,2))

24/02/2000

Eliminamos los dos digitos del año y en su lugar calculamos un valor creciente:

Documento_2= "022402788"

For nn =98 to 103: debug.Print "Dato: " & format(nn mod 100,"00"), DateSerial( format(nn mod 100,"00") , Mid(Documento_2, 1,2), Mid(Documento_2, 3,2)): next nn

Dato: 98      24/02/1998

Dato: 99      24/02/1999

Dato: 00      24/02/2000

Dato: 01      24/02/2001

Dato: 02      24/02/2002

Dato: 03      24/02/2003

dim fnacto as date

     q$="76022402788"

'el año los dos caracteres de la izquierda

      qaño= left$(q$ ,2)

'el mes  2 caracteres a partir del tercero

    qmes=mid$(q$ ,3,2)

'el dia  2 caracteres a partir del quinto

    qdia=  mid$(q$ ,5,2)

'ahora bien , con el año tenemos un problema  porque n o sabenos si es de  19 0 20

'yo haria una cosa los que sean menores de 22  del siglo 21    los anteriores del siglo 20

if val(qaño)    >= 22  then let  qaño="19"& qaño  else    qaño="20" & qaño

fnacto= qdia &"/"& qmes & "/ "& qaño