This is a quick way to build a list of dates which may or may not eliminate weekends or holidays. By providing a little bit more lookup code, you can provide an annual holiday list. One extra feature of using this list is you can perform a "no math" business day calculation by adding a @Elements() around one of the desired return values. The prompts provided are only used to show the returns -- substitute field variables for use.
REM "Use the following syntax for
field substitution.";
REM "tDateRange := @Date
(@TextToTime(@Text(StartDateDt)
+ \"-\" +
@Text(EndDateDt)))";
tDateRange := @Date([01/01/2004 -
12/31/2004]);
tHolidayList := "01/01/2004":
"01/19/2004":"02/16/2004":"04/09/2004":
"05/31/2004
":"07/05/2004":"09/06/2004":"11/25/2004":
"12/24/2004";
tDateList := @If(tDateRange = ""; "";
@Date(@TextToTime(@Explode
(tDateRange))));
tWeekday := @Text(@Weekday(tDateList));
tWkDayDate := tWeekday + "^" +
@Text(tDateList);
tSats := @Right(tWkDayDate; "7^");
tSuns := @Right(tWkDayDate; "1^");
tList := @Trim(@ReplaceSubstring
(@Text(tDateList); tSats : tSuns; ""));
tDays := @Trim(@Replace(tList;
tHolidayList; ""));
@Prompt([OKCANCELLIST]; "Date Range";
"Date Range to be used : " + @Text
(tDateRange); ""; @Text(tDateList));
@Prompt([OKCANCELLIST]; "Weekdays";
"Listed dates without weekends."; "";
tList);
@Prompt([OKCANCELLIST]; "Business Days";
"Listed weekdays without holidays : "
+ @Implode(tHolidayList; ", "); ""; tDays)
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip exchange by member John Robertson. Please let others know how useful it is via the rating scale below. Do you have a useful Notes/Domino tip or code to share? Submit it to our monthly tip contest and you could win a prize and a spot in our Hall of Fame.
