La fonction GetRestrictDate() …

l’utilisateur entre une donnée valide. Avec une telle
fonction récurrente, il faut être sûr de fournir à  l’utilisateur une méthode pour
échapper à  cette boucle; dans ce cas, en laissant le champ vide ou en utilisant
une date valide.



La fonction PurgeCalendarFolder() utilise la date que GetRestrictDate() renvoie
afin de définir une limitation sur le groupe colItems. Par exemple, si un utilisateur
a entré « 9/30/2000 », la fonction définit la chaîne suivante, qui va être utilisée
par la méthode Restrict :



[End] < "Sep 30, 2000"



Cet exemple illustre l’un des caprices de syntaxe d’Outlook : les méthodes Restrict
et Find ne fonctionneront pas avec une date littérale, telle que #9/30/2000#.
Elles ont besoin d’une chaîne de caractères.



Après avoir appliqué la limitation au groupe colItems et obtenu un nouveau groupe,
colOldItems (contenant uniquement les objets les plus vieux), la fonction PurgeCalendarFolder()
agit de la même façon que la fonction PurgeFolder() : elle efface tous les éléments
du groupe.