Do you need just years or do you need more of a breakdown year months days...

here are two good postings on the subject you should be able to get what you
need

http://groups.google.ca/group/comp.databases.ms-access/browse_thread/thread/4c02
f7b7b44727e4/d1a2c6cdb0b96309
http://groups.google.ca/group/microsoft.public.access.forms/browse_thread/thread
/e53c5420f5e32625/395a8cc421c6c2aa

Daniel

Hi Sophie:

The following function will return Age in yy.mm.dd format:
************************************************************************************************************
Function fAge(dteStart As Variant, dteEnd As Variant) As Variant
'*******************************************
'Purpose:   Accurately return the difference
'           between two dates, expressed as
'           years.months.days
'Coded by:  raskew
'Inputs:    From debug (immediate) window
'           1) ? fAge(#12/1/1950#, #8/31/2006#)
'           2) ? fAge(#12/30/2005#, #1/2/2006#)
'Outputs:   1) 55.8.30
'           2) 0.0.3
'*******************************************

Dim intHold   As Integer
Dim dayhold   As Integer

  'correctly return number of whole months difference
  'the (Day(dteEnd) < Day(dteStart)) is a Boolean statement
  'that returns -1 if true, 0 if false
  intHold = DateDiff("m", dteStart, dteEnd) + (Day(dteEnd) < Day(dteStart))
 
  'correctly return number of days difference
  If Day(dteEnd) < Day(dteStart) Then
     dayhold = DateDiff("d", dteStart, DateSerial(year(dteStart), month
(dteStart) + 1, 0)) + Day(dteEnd)
  Else
     dayhold = Day(dteEnd) - Day(dteStart)
  End If
 
  fAge = LTrim(str(intHold \ 12)) & "." & LTrim(str(intHold Mod 12)) & "." &
LTrim(str(dayhold))

End Function
************************************************************************************************************

Call it like this to toggle between this year and next year, based on whether
the current month is >= July (7)

? fage(#12/1/1950#, dateserial(year(date())+ abs(month(date())>=7),1,1))
56.1.0

HTH - Bob