>LPARAMETERS indate >LOCAL lAfterFirBusDay >DAYOFWEEK = DOW(indate-DAY(indate)+1) >DO CASE >CASE DAY(indate) = 1 > lAfterFirBusDay = .f. >CASE dayofweek = 2 AND DAY(indate) < 4 > lAfterFirBusDay = .f. >OTHER > lAfterFirBusDay = .t. >endc >retu lAfterFirBusDay > >
LPARAMETERS indate return ( indate > date(year(indate),month(indate), ; iif(month(indate)=1,2,1)) ; and between(dow(indate,2),1,5))Cetin