DateDiff, fonction, exemple
Cet exemple utilise la fonction DateDiff pour afficher le nombre de jours entre une date donnée et la date d'aujourd'hui.
Dim TheDate As Date ' Déclare les variables.Dim
MsgTheDate = InputBox("Entrez une date")
Msg = "Jours à compter d'aujourd'hui: " & DateDiff("j",Now,TheDate)
MsgBox Msg