LPARAMETERS dDate1, dDate2 LOCAL nWorkDays nWorkDays = INT(ABS(dDate1 - dDate2) / 7)* 5 FOR nT = 1 TO ABS(dDate1 - dDate2) % 7 IF BETWEEN(DOW(MAX(dDate2,dDate1) +1 - nT),2,6) nworkDays = nWorkDays+1 ENDIF ENDFOR RETURN nWorkDaysIf you want to exclude holidays also you might want to enhance this routine in the following manner:
LPARAMETERS dDate1, dDate2 LOCAL nWorkDays, nHolidays CALCULATE CNT() FOR BETWEEN(DOW(HolidayTable.Date),2,6) AND ; BETWEEN(HolidayTable.Date,MIN(dDate1,dDate2), MAX(dDate1,dDate2)) TO nHolidays IN HolidayTable nWorkDays = INT(ABS(dDate1 - dDate2) / 7)* 5 - nHolidays FOR nT = 1 TO ABS(dDate1 - dDate2) % 7 IF BETWEEN(DOW(MAX(dDate2,dDate1) +1 - nT),2,6) nworkDays = nWorkDays+1 ENDIF ENDFOR RETURN nWorkDays>Hi all,