DateDiff format (day month year)

[Jane]

Hello everyone

I hope you can help me with this small problem.

I would like to have a text box on a form display the time remaining between
a date and now. I have googles this but can not find a simple answer. I can
understand simple VBA but not too complex.

example
If I have a text box (txtEndDate) with the date 19/07/2010
I would like the text box to display 1 year - 0 months - 0 days

If txtEndDate showed 14/10/2015
I would like the text box to display 5 years - 1 month - 5 days

Thank you for your (step by step) help if you feel able to assist

Jane Hollin

 

[Allen Browne]

Copy the Diff2Dates() function from here:
http://www.accessmvp.com/djsteele/Diff2Dates.html
Paste into a new standard module.

You can now use this as the Control Source of a text box on your form:
=Diff2Dates("ymd", [txtEndDate], Date())

 

[Douglas J. Steele]

Just copy the code from http://www.accessmvp.com/djsteele/Diff2Dates.html

 

[Jane]

Dear Mr Brown and Mr Steel,

Thank you so much for your expert advice. The code works just as I had hoped.

Jane Hollin