VBA Word XP: Er personen fra før 010739 eller efter 010739

Du finder datoen således:
DateSerial(Mid(CPR, 5, 2), Mid(CPR, 3, 2), Left(CPR, 2))

dvs:

If DateSerial(Mid(CPR, 5, 2), Mid(CPR, 3, 2), Left(CPR, 2)) >= #1939-07-01# then
  'personen er yngre
else
  'personen er ældre
endif

Helt så enkelt er det ikke, hvis det skal være skudsikkert.

Se her: http://www.cpr.dk/Index/dokumenter.asp?o=11&n=0&d=397&s=4

Jeg er vist ikke helt med, venne. Hvad er ikke skudsikkert?

venne refererer til, at en en person med fødselsdatoen 020202 i prinippet både kan være 2 år gammel og 102 år. Dette kan også udledes af CPR-nr.

Men hvis du kan udelukke denne usikkerhed og altid gå ud fra, at dine personer er under 100 år, så er der ingen problemer.

Ellers skal koden gangske rigtigt forbedres...

Det ka jeg godt se.
Men i mit tilfælde, er jeg ret sikker på, at der ikke figurerer nogen over 100 år. Det kan der komme til, men så må koden revideres til den tid.

Men nu er det sådan, at CPR skrives: 010739xxxx eller 010738xxxx. I sidst nævnte tilfælde, tolker systemet, at vedk. er født 010739 eller efter. Dét er han jo ikke :-)

Sludder! Mener selvfølgelig ikke 010738xxxx men 010740xxxx, der burde tolkes at personen er født senere end 010739xxxx.