Date Difference

[AlTamres]

I would like a function or Macro that will perform a date difference and
return the difference in [years]Y [months]M [days]D Format

 

[strive4peace]

Hi Al,

how about something like this:

'~~~~~~~~~~~~~~~~
Function GetDateDiffYMD( _
pDate1 As Date, _
pDate2 As Date) As String

'written by Crystal
'strive4peace2006 at yahoo dot com
'8-13-06

Dim mYrs As Integer, _
mMos As Integer, _
mDays As Integer

mMos = DateDiff("m", pDate1, pDate2)
If Day(pDate1) > Day(pDate2) Then
mMos = mMos - 1
End If

mDays = DateDiff("d", DateAdd("m", mMos, pDate1), pDate2)

mYrs = mMos \ 12

mMos = mMos - mYrs * 12

GetDateDiffYMD = mYrs & " Y " _
& mMos & " M " _
& mDays & " D"

End Function
'~~~~~~~~~~~~~~~~



Warm Regards,
Crystal
*
have an awesome day
*
MVP Access
Remote Programming and Training
strive4peace2006 at yahoo.com
*