CLEAR d1={^2007-04-03} FOR lnx = 1 TO 20 ?AddWorkDays(d1,lnx) NEXT FUNCTION AddWorkDays(startDate,nAdddaysnumber) LOCAL nDay[2] ldDate = (Startdate+7*floor(nAdddaysnumber/5))+MOD(nAdddaysnumber,5) return TRANSFORM(ldDate)+" "+CDOW(ldDate) ENDFUNC>>Hi All
>Function addworkdays >Lparameters dStartdate,nAdddaysnumber >Return dStartdate+7*floor(nAdddaysnumber/5)+MOD(nAdddaysnumber,5) >