datum vanuit tekstveld

[JEPEDEWE]

Ik heb een tekstveld met volgende inhoud:

76032512068 (=rijksregisternummer)

In hetzelfde record heb ik een datumveld: "geboortedatum"

het is de bedoeling dat ik vanuit het tekstveld, automatisch de "geboortedatum" genereer, dus, in dit concrete geval zal de geboortedatum zijn: 25/03/1976
Hoe ga ik best te werk, en zorg ik er voor dat ik 1976 krijg en niet 2076

(stel 05010125689 wordt 01/01/2005 en niet 01/01/1905)

Bedankt
JP

 

[OctaFish]

Op zich niet moeilijk, als je het ‘kantelpunt’ weet. Als de geboortedatum van alles kan zijn, en je dus op het huidige jaar moet werken, kan het lastig zijn als je honderdjarigen in het bestand hebt, want hoe gaat het dan met 180523#####? Maar als dat geen probleem is, dan kan het wel zo:

DateSerial(CInt(“20”&(Left(Kode];2)<Right(Year(Date());2)& Left([Kode];2));Mid([Kode];3;2);Mid([Kode];5;2))

 

[OctaFish]

D'r zat uiteraard een foutje in bovenstaande code, mocht je aan het knutselen zijn geweest . Krijg je er van als je code uit je hoofd probeert te maken. Dit is de juiste:

Expr1: DateSerial(CInt((20+Left([RegNummer];2)<Right(Year(Date());2)) & Left([RegNummer];2));Mid([RegNummer];3;2);Mid([RegNummer];5;2))