Button:
Check := @If(Startdate = ""; 1; EndDate = ""; 1; 0);
@If(Check; @Do(@Prompt([OK]; "No Values"; "You must enter starting and ending
dates."); @Return("")); "");
HolidayList := @DbColumn(""; ""; "($Holidays)"; 2);
@SetField("Holidays"; HolidayList);
@Environment("HolidayList"; @Implode(HolidayList; ";"));
@Environment("Iterations"; @Text(((EndDate - StartDate) / (24 * 60 * 60)) + 1));
@Environment("StartDate"; @Text(StartDate));
@Environment("SlidingDate"; @Text(StartDate));
@Environment("EndDate"; @Text(EndDate));
@Environment("WorkDays"; "0");
@Command([FileSave]);
@Command([FileCloseWindow]);
@Command([ToolsRunMacro]; "($Add-A-Day)")
Execute-Once Macro "($Add-A-Day)":
REM "ADD-A-DAY Macro";
REM "Recursive macro to check if dates fall on weekends ";
REM "and holidays and increment a working day count.";
REM "Retrieve all the environment variable";
Iterations := @TextToNumber(@Environment("Iterations"));
Sdate := @TextToTime(@Environment("SlidingDate"));
EndDate := @TextToTime(@Environment("EndDate"));
WorkDays := @TextToNumber(@Environment("WorkDays"));
Holidays := @Explode(@Environment("HolidayList"); ";");
REM "Calculate Add a Day - will be zero or one";
AddDay := @If(@Weekday(Sdate) = 1; 0; @Weekday(Sdate) = 7; 0; Sdate > EndDate;
0; @Text(Sdate) = Holidays; 0; 1);
REM "Check if there are any more iterations to do";
REM "If not, call a macro to update the fields";
REM "If yes, then save the new values and call the recursion routine";
@If(Iterations = 0; @Do(@Command([ToolsRunMacro]; "($SetNumDaysField)");
@Command([EditDocument]; "1")); @Do(@Environment("Iterations"; @Text(Iterations
- 1)); @Environment("SlidingDate"; @Text(@Adjust(Sdate; 0; 0; 1; 0; 0; 0)));
@Environment("WorkDays"; @Text(WorkDays + AddDay)); @Command([ToolsRunMacro];
"($Recurs-Add)")));
SELECT @All
Execute-Once Macro "($Recurs-Add)":
@Command([ToolsRunMacro]; "($Add-A-Day)");
SELECT @All
Filter Macro "($Recurs-Add)":
FIELD NumDays := @Environment("WorkDays");
SELECT @All
This was first published in November 2000