Tagging on here as I don't see the original message.
I do read your question a little differently than Cliff and, if I were using DATEDIF, would use the formula below.
DATEDIF can work some of the time, but it has flaws.
For example, using the formula today:
=DATEDIF(A1,TODAY(),"y")&" years, "&
DATEDIF(A1, TODAY(),"ym")&" months, "&
DATEDIF(A1,TODAY(),"md")& " days"
with 3/4/2007 in A1 --> 4 years, 0 months, 12 days
which is probably correct.
But, if A1 = 1/31/2011 then that same formula --> 0 years, 1 months, 13 days
where you probably want a result of 1 Month, 16 days
The problem, of course, is that while "days" and "weeks" are fixed in length; months and years can vary in length.
The closest I've come to being able to solve the problem is with a User Defined Function.
To enter this User Defined Function (UDF), <alt-F11> opens the Visual Basic Editor.
Ensure your project is highlighted in the Project Explorer window.
Then, from the top menu, select Insert/Module and
paste the code below into the window that opens.
To use this User Defined Function (UDF), enter a formula like
B1: =DateIntvl(A1,TODAY())
===================================
Option Explicit
Function DateIntvl(d1 As Date, d2 As Date) As String
'Note that if d1 = 29 Feb, the definition of a year
'may not be the same as the legal definition in a
'particular locale
'Some US states, for some purposes, declare a
'leapling's birthday on 1 Mar in common years; England
'and Taiwan declare it on Feb 28
Dim temp As Date
Dim i As Double
Dim yr As Long, mnth As Long, dy As Long
Dim sOutput() As String
Do Until temp > d2
i = i + 1
temp = DateAdd("m", i, d1)
Loop
i = i - 1
temp = DateAdd("m", i, d1)
yr = Int(i / 12)
mnth = i Mod 12
dy = d2 - temp
ReDim sOutput(0 To -(yr > 0) - (mnth > 0) - (dy > 0) - 1)
i = 0
If yr > 0 Then
sOutput(i) = yr & IIf(yr = 1, " Year", " Years")
i = i + 1
End If
If mnth > 0 Then
sOutput(i) = mnth & IIf(mnth = 1, " Month", " Months")
i = i + 1
End If
If dy > 0 Then sOutput(i) = dy & IIf(dy = 1, " Day", " Days")
DateIntvl = Join(sOutput, ", ")
End Function
=======================================