Получить число рабочих дней между 2 датами

* Вот способ подсчёта числа рабочих дней, прошедших между двумя датами *.
* Пусть date1 - начальная дата, date2 - конечная дата (в американском формате).
data list / date1 1-8 (ADATE) date2 10-17 (ADATE) .
begin data
01/20/98 02/28/98
02/12/98 02/18/98
end data.

* Подсчитаем просто число всех дней* .
COMPUTE DAYS =CTIME.DAYS(date2-date1).

*Заметьте, даты хранятся в секундах, 86400 секунд в дне * .
COMPUTE WKDAYS=0.
LOOP #=date1 to date2 BY 86400.
If RANGE(XDATE.WKDAY(#),2,6) WKDAYS=WKDAYS +1.
END LOOP.

list.