Thanks Edward,

This is close but but it uses Tuesday through Saturday. Here is my test code.

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
>>
>>Anyone have a good program to add the number of workdays to a date without looping through the dates? I am not worried about holidays and such. Just Monday through Friday.
>>
>>Thanks.
>
>Something like this:
>

>Function addworkdays
>Lparameters dStartdate,nAdddaysnumber
>Return dStartdate+7*floor(nAdddaysnumber/5)+MOD(nAdddaysnumber,5)
>