>I have a date field that the user key in and base on that date I need to calulate 10 business days from that date. Needs some ideals on this procedures.
>
>Thanks Randy

I just wrote this program from the top of my head.

#define DOW_MONDAY   2
#define DOW_SATURDAY   7
#define DOW_SUNDAY     1
local array laDates[m.NBusinessDays]
i=0
k=0
do while k <= m.NBusinessDays
    i=m.i+1
* -- Check against holiday for each missing record && Sundays & Saturdays
   if dow(m.myDate+m.i)<>DOW_SATURDAY and dow(m.mydate+m.i)<>DOW_SUNDAY ;
      and !seek(m.myDate+m.i,'Holidays')
            ** Business day
       k=m.k+1   
       laDates[m.k] = m.myDate+m.i
   endif
enddo