If Item.Date + 7 >= Today .DT_DAYS 
   ' Today - Clock >Today< then
 ...
;  
