? 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