? GetDays(DATE(2004,01,01), DATE(2004,04,03))


FUNCTION GetDays(dat1, dat2) 
   LOCAL next_loop, diff, ret_val, dDate
   diff = dat2 - dat1 + 1
   ret_val = 0
   FOR next_loop = 1 TO diff
       dDate = dat1 + next_loop
       IF .NOT. INLIST(DOW(dDate),1,6) && or 6,7
          ret_val = ret_val + 1
       ENDIF
   NEXT
RETURN ret_val