Oldest:Max (DateDiff('m', Date)/12) Youngest:Min (DateDiff('m',Date)/12)

[watcher248]

I'm new to Access so please be kind...I'm trying to determine oldest and youngest employee, I'm sure that the line below is copied verbatim, any ideas I would be most grateful, and so would my shrink.
Thank you
Oldest:Max (DateDiff('m', Date)/12) Youngest:Min (DateDiff('m',Date)/12)

[JConsulting]

[code]
SELECT distinct (SELECT fullname from tbltest a where date2 = (select Max([date2]) from tbltest)) AS oldest, (SELECT fullname from tbltest a where date2 = (select Min([date2]) from tbltest)) AS youngest
FROM tbltest;
[/code/]

[ADezii]

I'm new to Access so please be kind...I'm trying to determine oldest and youngest employee, I'm sure that the line below is copied verbatim, any ideas I would be most grateful, and so would my shrink.
Thank you
Oldest:Max (DateDiff('m', Date)/12) Youngest:Min (DateDiff('m',Date)/12)

Here is your answer from a code perspective. I'm sure the dreaded 'SQL Gang' led by Mary and NeoPa will soon come on the scene and have a more practical answer. I'm just happening to experience a SQL meltdown, sorry:

Dim dteYoungestEmployee As Date
Dim dteOldestEmployee As Date
 
dteYoungestEmployee = DLookup("Max([BirthDate])", "tblEmployee")
dteOldestEmployee = DLookup("Min([BirthDate])", "tblEmployee")
 
Debug.Print "The youngest Employee was born on " & dteYoungestEmployee & _
            " and is " & DateDiff("yyyy", dteYoungestEmployee, Now()) & _
            " years old."
 
Debug.Print "The oldest Employee was born on " & dteOldestEmployee & _
            " and is " & DateDiff("yyyy", dteOldestEmployee, Now()) & _
            " years old."

OUTPUT:

The youngest Employee was born on 1/6/1992 and is 15 years old.
The oldest Employee was born on 6/1/1942 and is 65 years old.