[AccessD] Countdown

Hi,
Has anybody any code that would do a count down in years,days,hrs,mins,sec
from a given date to now()
Ie, pass the function the future (or past) date and it updates given values
which are passed by Ref.

Thanks
Max