* FUNCTION: Bus_Days.prg * AUTHOR: George Tasker * DATE: July 30, 1996 - 4:53 PM * PURPOSE: Returns the number of business days * between two dates PARAMETERS p_start, p_stop PRIVATE m.days, m.stop, m.num_weeks m.days = (p_stop - p_start) + 1 m.num_weeks = INT(m.days / 7) m.result = m.num_weeks * 5 m.add_days = m.days % 7 m.stop = p_stop - m.add_days DO WHILE m.stop < p_stop m.stop = m.stop + 1 IF NOT INLIST(DOW(m.stop), 1, 7) m.result = m.result + 1 ENDIF ENDDO RETURN m.resulthth,