В скрипт не вчитывался, но возможно, что достаточно в процедуре удаления заменить условие
If %$D% EQU 01 на
If %$D% LEQ 03, тогда условие будет отработано 1, 2 и 3го числа, но сначала протестируйте "на кошках"
ЗЫ: По-хорошему это вопрос должен был быть задан здесь:
http://forum.oszone.net/thread-144124.html