Just for info....
Code:
d dayofweek s 1 0 d fromMonday s 6 0 d monday s d d toFriday s 6 0 //this junk gives you last weeks Monday to Friday dates in MMDDYY //this should work till arounf 2012 when the world explodes //day of week 1=Sun 2=Monday ......7=Sat /free dayofweek = %rem(%diff(%date():D'1899-12-30':*days):7); if dayofweek < 1; dayofweek += 7; endif; // need to get to current weeks Monday if dayofweek = 1; monday = %date() + %days(1); else; monday = %date() - %days(dayofweek-2); endif; fromMonday = %dec(monday - %days(7):*mdy); toFriday = %dec(monday - %days(3):*mdy); *inlr = *on; /end-free
Comment