This function will return how long since or how long until such as "3 days ago" or "in 34 minutes, 12 seconds"
UPDATE (2021-02-22): Fixed some bugs and added weeks (w)
UPDATE (2022-03-16): Added T2 as an optional second date/time value. If you don't specify it, then Now() will still be used to give you the current system date/time. However, if you want to get the difference between two date/time values, you can now specify T2 and it will calculate that for you.
And yes, I've noticed that VBA ignores your system date format. Even though I recently switched everything I have over to the ISO Date Standard Format, Access VBA doesn't seem to care. It still wants dates as mm/dd/yy. Not much I can do there.
Click here for the function's VBA source code: How Long VBA Code - Gold Members only
Usage assuming today's date is 8/23/2020
(min and sec are advancing as I'm typing this, but you get the point):
HowLong(#8/1/2018#) 2 years ago
HowLong(#8/1/2020#) 22 days ago
HowLong(#8/22/2020 10pm#) 17 hours ago
HowLong(#8/22/2020 10pm#, True) 17 hours, 30 minutes, 23 seconds ago
HowLong(#8/22/2020 10pm#, True, "hn") 17 hours, 30 minutes ago
HowLong(#8/1/2018#, True) 2 years, 22 days, 15 hours, 39 minutes, 14 seconds ago
HowLong(#8/1/2018#, True, "ymdhn") 2 years, 22 days, 15 hours, 39 minutes ago
HowLong(#8/1/2018#, True, "ymdhn", False) 2 years, 22 days, 15 hours, 39 minutes
HowLong(#6/1/2018#, True, "ym", False, True) 2 yr, 2 mo
HowLong(#1/1/2010#, False, "mmdd") 127 months ago
HowLong(#1/1/2010#, True, "mmdd") 127 months, 22 days ago
HowLong(#1/1/2025#) in 4 years
HowLong(#1/1/2025#, True, "ymdh") in 4 years, 4 months, 8 days, 8 hours
HowLong(#1/1/2021#, True, "hn", True, True) in 3128 hr, 9 min
UPDATE (2022-03-16): With T2 now added:
HowLong(#8/1/2018#,,,,,#1/1/2022#) 3 years ago
HowLong(#8/1/2018#, True,,,,#1/1/2022#) 3 years, 5 months ago
HowLong(#8/1/2018#, True,"ymd",,,#1/13/2022#) 3 years, 5 months, 12 days ago
Get it? Good.