EXTRACT DATE FROM codice fiscale

[sal21]

googoling...
how tow use this query, is not readable for me!:-)

iif(IIf(Mid([CodFiscale];10;2)>40;Mid([CodFiscale];10;2)-40;Mid([CodFiscale];10;2))<10;"0"& IIf(Mid([CodFiscale];10;2)>40;Mid([CodFiscale];10;2)-40;CInt(Mid([CodFiscale];10;2)));IIf(Mid([CodFiscale];10;2)>40;Mid([CodFiscale];10;2)-40;Mid([CodFiscale];10;2))) & "/" & Switch(Mid([CodFiscale];9;1)="A";"01";Mid([CodFiscale];9;1)="B";"02";Mid([CodFiscale];9;1)="C";"03";Mid([CodFiscale];9;1)="D";"04";Mid([CodFiscale];9;1)="E";"05";Mid([CodFiscale];9;1)="H";"06";Mid([CodFiscale];9;1)="L";"07";Mid([CodFiscale];9;1)="M";"08";Mid([CodFiscale];9;1)="P";"09";Mid([CodFiscale];9;1)="R";"10";Mid([CodFiscale];9;1)="S";"11";Mid([CodFiscale];9;1)="T";"12") & IIf(Mid([CodFiscale];7;2)<15;"20";"19") & "/" & Mid([CodFiscale];7;2)

in effect i need to update the field DATANASC, in this format DD/MM/YYYY, where CodFiscale, not is null

note:
with ADO and vb6, please

[HansV]

And you expect us to understand it without even the slightest indication of what CodFiscale contains?

[sal21]

And you expect us to understand it without even the slightest indication of what CodFiscale contains?

FOR EXmple:
FRCDMN99R21D612D
MPRSVT54C26F839T
....

[HansV]

Try

Format(DateSerial(Mid(s,7,2)+IIf(Mid(s,7,2)<15,2000,1900),InStr("ABCDEHLMPRST",Mid(s,9,1)),Mid(s,10,2)Mod40),"dd/mm/yyyy")

[HansV]

Source: Calcolo Codice Fiscale

[sal21]

Try

Format(DateSerial(Mid(s,7,2)+IIf(Mid(s,7,2)<15,2000,1900),InStr("ABCDEHLMPRST",Mid(s,9,1)),Mid(s,10,2)Mod40),"dd/mm/yyyy")

Ok but i need a SQL, to update the field DATANASC, Is the birthday date, in table...
With codice fiscale not Is null, and DATANASC Is null...

[HansV]

I really have to spell it out for you...

SQL = "UPDATE Tabella SET DATANASC = Format(DateSerial(Mid(CodFiscale,7,2)+IIf(Mid(CodFiscale,7,2)<15,2000,1900),InStr('ABCDEHLMPRST',Mid(CodFiscale,9,1)),Mid(CodFiscale,10,2) Mod 40),'dd/mm/yyyy') WHERE DATANASC Is Null AND CodFiscale Is Not Null"

[sal21]

I really have to spell it out for you...

SQL = "UPDATE Tabella SET DATANASC = Format(DateSerial(Mid(CodFiscale,7,2)+IIf(Mid(CodFiscale,7,2)<15,2000,1900),InStr('ABCDEHLMPRST',Mid(CodFiscale,9,1)),Mid(CodFiscale,10,2) Mod 40),'dd/mm/yyyy') WHERE DATANASC Is Null AND CodFiscale Is Not Null"

Tks bro, but i cannot test now...
But Sure work.