? Indate > FirstBizDay(Indate)

FUNCTION FirstBizDay
LPARAMETERS ldDate
LOCAL FDOM
FDOM = ldDate - Day(ldDate) + 1
RETURN FDOM + IIF(DOW(FDOM,2)>5, 8-DOW(FDOM,2), 0)

>>LPARAMETERS indate
>>return ( indate > date(year(indate),month(indate), ;
>> iif(month(indate)=1,2,1)) ;
>> and between(dow(indate,2),1,5))
>>