? Indate > FirstBizDay(Indate) FUNCTION FirstBizDay LPARAMETERS ldDate LOCAL FDOM FDOM = ldDate - Day(ldDate) + 1 RETURN iif(month(ldDate)=1,1,0)+; FDOM + IIF(DOW(FDOM,2)>5, 8-DOW(FDOM,2), 0)And still shorter :)
>>? 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) >>>>Cetin