De mémoire Date(Now()) -> retourne la partie de la date actuelle sans l'heure. Now() tout seul retourne une date au format long.
En VBA il existe une fonction DateAdd() qui permet d'effectuer des additions de X unités (minute, jours, mois, ...) sur une date.
Sinon ce genre de question seraient plus à leur place sur un forum programmation tel que http://www.developpez.com/