Show age from social security number

[carstenhdk]

Hi

I have a table with contacts. Their social security number is in the table as well. In danish it is in this format: dd-mm-yyyy-xxxx. I want a feild, that shows contacts age calculated from this number. Compare todays date with the number, and calculate the age in years.

Thx in advance

[kimmer]

Expr1: DateDiff("yyyy",CDate(Left([danish social],10)),Now())

[carstenhdk]

Ok, I think you misunderstood me.. :-)

DD: date 1-31.
MM: Month 1-12.
YYYY: Year 0-2040?
XXXX: Inividual number for each person. I shouldn´t mean anything in this case, but it´s a part of the number written in the feild ddmmyyyy-xxxx.

How do I seperate the ddmmyyyy from the -xxxx? When the separation has been done, the date is compared with todays date, and the persons age is shown in the feild.

[kimmer]

Which is it... first you said dd-mm-yyyy-xxxx, then ddmmyyyy-xxxx

The Left function is pulling the first 10 characters.
Cdate is converting those characters to a date.
Datediff is comparing the date with now and producting the difference, in years.

[carstenhdk]

Ok, I´m sorry about misunderstandings.. :-S

Well, I don´t seem to get this right - by the way I´ve been veeery sleepy when I wrote this. There is only yy and not yyyy as written. :-/

I have a number on a person 191184-0234. Person is born nov 19th 1984. The feild is set to have a input mask to secure, that no numbers are forgotten. The feild has a input mask: 000000-0000;0;_ The first 6 digits is the date that is relevant. How to do?

[kimmer]

To get the date:

birthdate: CDate(Left([danish social],2) & "-" & Mid([danish social],3,2) & "-" & Mid([danish social],5,2))

Calculate age:
Age: DateDiff("yyyy", [Birthdate], Now())+ Int( Format(now(), "mmdd") < Format( [Birthdate], "mmdd") )