# Calculating Business Days Between Two Dates

## Domino Resources - Part 2

### Looking for something else?

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]);
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)));
SELECT @All
SELECT @All
FIELD NumDays := @Environment("WorkDays");
SELECT @All

This was last published in November 2000

#### Start the conversation

Send me notifications when other members comment.

## SearchWindowsServer

• ### Windows Server Migration Tools make file share moves less taxing

Administrators can hit a few snags when migrating a Windows file server, but a free Microsoft utility and some PowerShell ...

• ### Tailor a WSUS server setup to any Windows environment

Administrators can configure a Windows Server Update Services server -- or several -- to manage and distribute updates from ...

• ### Microsoft SCORCH lights an automated path to more efficiency

System Center Orchestrator tackles tedious tasks and can even make autonomous decisions based on conditions set by the Windows ...

## Search400

• ### iSeries tutorials

Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

• ### V6R1 upgrade planning checklist

When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

• ### Connecting multiple iSeries systems through DDM

Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

## SearchEnterpriseLinux

• ### SUSE Linux jumps on the open private cloud deployment train

SUSE Linux Enterprise planning private cloud deployment with OpenStack weight behind it. NVIDIA works on Linux drivers for ...

• ### Want one of the many Linux jobs out there? Time to go back to class

Does extended education from the Linux Foundation and others help graduates meet the demands of today’s Linux jobs? Some say yes.

• ### Ubuntu ARM server AMI for Amazon EC2 offers fast access in the cloud

Canonical’s Ubuntu ARM server AMI for Amazon EC2 provide open source shops with a fast ARM server for the cloud.

## SearchDataCenter

• ### Build a data center shutdown procedure to prepare for the worst

A data center shutdown checklist helps IT teams focus on backup, testing and system verification before pulling the plug and ...

• ### Telcos purge colocation data centers, open door to neutral connections

Enterprise customers in Verizon and CenturyLink's colocation data centers should expect better cloud and network connection ...

• ### IT slowly embraces composable infrastructure

If there will be a way to make an enterprise data center as efficient and optimized as cloud computing, composable infrastructure...

## SearchExchange

• ### Access for Office 365 external users a concern for admins

Microsoft added external access for Office 365 Groups, which means administrators must contend with confidentiality and lifecycle...

• ### The essential admin's guide to Office 365 PowerShell

Need to make extensive updates quickly? Admins can rev up their PowerShell skills, bypass the Office 365 management GUI and leave...

• ### Understanding Exchange Online's Role-Based Access Control model

The Role-Based Access Control model manages and evaluates permissions in Exchange Online. Admins can explore the model, create ...

## SearchContentManagement

• ### Microsoft brings its flavor of AI with Microsoft Cognitive Services

Microsoft Cognitive Services has a new array of APIs to make it easier to scan text, video and audio data and to bring ...

• ### Users prefer Office 365 suite collaboration features over SharePoint

Users don't want to jump through hoops, and they want applications to work on mobile devices. Those needs may kill traditional ...

• ### What new SharePoint features to expect in the next 12 months

Now that Microsoft is developing its SharePoint features, there are new feature rollouts all the time. Here's a rundown of the ...

Close