A
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
return the difference in [years]Y [months]M [days]D Format
S
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
*
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
*