Fonctions de dates

Salut,je suis une débutante.je veut réaliser une fonction qui me renvoie la date précédente au date courrante.aidez moi s'il vous plait!
merci d'avance.

Code:

---

1 2 3 4

Dim dt As Date   dt = "1/03/07" 'Ceci est un exemple bien sûr Debug.Print dt - 1

---

Ou alors utiliser la fonction dateadd

Code:

---

1 2 3

Dim Dt as date Dt=Date Dt = DateAdd("d", -1, Dt)

---