If Item.Date + 7 >= Today, DT_DAYS 
   With Today from Clock 'Today' then
 ...
;  
