function WeekDays(tuStart, tuEnd) * 1999 - Bob Cassady - Software Systems * Returns number of weekdays (Mon to Fri) between two dates, inclusive. * Accepts either dates, or datetimes, or both as parameters * Does not account for holidays. * The time range is made up of 0 or more FULL 7 day weeks (each having * 5 weekdays), plus from zero to 6 more days (lnExtraDays) of which zero * or more are weekdays (lnExtraWkDays). local luTemp, ldStart, ldEnd, lnTotRange, lnExtraDays, lnExtraWkDays if tuStart > tuEnd && Put dates in order ... earlier, later luTemp = tuEnd tuEnd = tuStart tuStart = luTemp endif ldStart = iif(type("tuStart") = "D", tuStart, ttod(tuStart)) ldEnd = iif(type("tuEnd") = "D", tuEnd, ttod(tuEnd)) lnTotRange = ldEnd - ldStart + 1 lnExtraDays = (lnTotRange % 7) - 1 lnExtraWkDays = 0 for i = 0 to lnExtraDays lnExtraWkDays = lnExtraWkDays + iif(between(dow(ldStart+i),2,6),1,0) endfor return (int(lnTotRange/7) * 5) + lnExtraWkDays