Q
Problem solve Get help with specific problems with your technologies, process and projects.

# Calculating approval date, part 3: Code for a faster day counter

How can I write a function to calculate the approval date which is n days (variable) from a given date, excluding...

Thursdays and Fridays?

The following is part 3 of Frank's response. Click for part 2, A faster day counter.

### Code for a faster day counter

``` CREATE OR REPLACE PACKAGE pk_approval AS FUNCTION approval_dt ( in_event_dt IN DATE, -- Starting date in_day_cnt IN NUMBER -- Number of "work" days ) RETURN DATE; FUNCTION approval_n ( in_dow_val IN PLS_INTEGER, -- 1=Sun, ... 7=Sat in_day_cnt IN PLS_INTEGER -- 0-5 ) RETURN PLS_INTEGER; PROCEDURE set_array; END pk_approval;
```

### Package Body

``` CREATE OR REPLACE PACKAGE BODY pk_approval AS TYPE num_array IS TABLE OF NUMBER; -- Declare an instance of type num_array -- (to be initialized in set_array) off_array num_array; -- ***************************** -- ** a p p r o v a l _ d t ** -- ***************************** FUNCTION approval_dt ( in_event_dt IN DATE, -- Starting date in_day_cnt IN NUMBER -- Number of "work" days ) RETURN DATE IS day_cnt PLS_INTEGER := in_day_cnt; day_5_cnt PLS_INTEGER; -- day_cnt, mod 5 dow_val PLS_INTEGER; -- 1=Sun, 2=Mon, ..., 7=Sat off_cnt PLS_INTEGER; -- # of actual days in future BEGIN -- "Normalize" day_cnt (>= 0) IF day_cnt < 0 THEN day_cnt := 0; END IF; -- Compute day_5_cnt := MOD (day_cnt, 5); off_cnt := ((day_cnt - day_5_cnt) / 5) * 7; dow_val := TO_NUMBER ( TO_CHAR ( in_event_dt, 'D' ) ); off_cnt := off_cnt + approval_n (dow_val, day_5_cnt); RETURN in_event_dt + off_cnt; END approval_dt; -- *************************** -- ** a p p r o v a l _ n ** -- *************************** -- approval_n returns the number of actual days you -- have to wait for in_day_cnt work days starting -- on weekday in_dow_val. -- For example, approval_n (1, 4) returns 6, -- because starting with Sunday (day 1) the 4th -- workday is 6 actual days away. FUNCTION approval_n ( in_dow_val IN PLS_INTEGER, -- 1=Sun, ... 7=Sat in_day_cnt IN PLS_INTEGER -- 0-5 ) RETURN PLS_INTEGER IS sub_val PLS_INTEGER -- subscript in off_array := in_dow_val + (7 * in_day_cnt); BEGIN RETURN off_array (sub_val); END approval_n; -- ************************* -- ** s e t _ a r r a y ** -- ************************* -- set_array initializes the package variable off_array, -- used in approval_n. PROCEDURE set_array IS BEGIN off_array := num_array ( -- Sun Mon Tue Wed Thu Fri Sat 0, 0, 0, 0, 2, 1, 0, -- 0 days later 1, 1, 1, 3, 3, 2, 1, -- 1 2, 2, 4, 4, 4, 3, 2, -- 2 3, 5, 5, 5, 5, 4, 3, -- 3 6, 6, 6, 6, 6, 5, 4 -- 4 ); END set_array; -- The following part of the package is executed once -- per session, when the package is first loaded. BEGIN set_array; END pk_approval;
```

This was last published in September 2003

## Content

Find more PRO+ content and other member only offers, here.

#### Have a question for an expert?

Get answers from a TechTarget expert on whatever's puzzling you.

You will be able to add details on the next page.

#### Start the conversation

Send me notifications when other members comment.

## SearchDataManagement

• ### Hyperledger Fabric offers path to enterprise blockchain future

Blockchain arose from bitcoin, but it's looking to find a place in the enterprise. Frameworks like Hyperledger Fabric could ...

• ### MongoDB 4.0 takes ACID transactions to multi-document level

MongoDB is taking a deeper step into SQL-style processing waters with a 4.0 update that brings increased support for ...

• ### Data lake concept needs firm hand to pay big data dividends

Data lakes pose technology deployment and data management challenges that can leave analytics users high and dry if the ...

• ### AI functionality limited today but could be a game-changer

Limited AI capabilities could soon give way to technology that is truly transformative for enterprises, surpassing the overhyped ...

## SearchSAP

• ### SAP's Barry Padgett on future of SAP Ariba Network

In this Q&A, new SAP Ariba President Barry Padgett discusses the future of procurement and the experience he will bring to Ariba ...

• ### Avoiding SAP indirect access woes requires good faith

Some customers are concerned that SAP will hit them for indirect access licensing fees, but they can avoid trouble if they act in...

• ### ControlPanelGRC app eases Steelcase's compliance pain

When Steelcase's SAP environment grew in size and complexity, it turned to Symmetry ControlPanelGRC to save time, have more ...

## SearchSQLServer

SQL Operations Studio simplifies routine administration of SQL Server and Azure SQL databases, making database development and ...

• ### Meltdown and Spectre fixes eyed for SQL Server performance issues

Microsoft has responded to the Spectre and Meltdown chip vulnerabilities with patches and other fixes. But IT teams need to sort ...

• ### Five SQL Server maintenance steps you should take -- ASAP

Putting off SQL Server administration tasks can lead to database problems. Enact these often-neglected maintenance items to help ...

## TheServerSide.com

• ### How DevOps concepts eluted from cloud computing and service platforms

The popularity of DevOps can be traced back to the emergence of cloud computing. As programmers began scripting their ...

• ### Pluralsight IQ, Stack Overflow boost developer street cred

Tying the Pluralsight IQ skills test to the Stack Overflow Developer Story helps developers measure their technical skills and ...

• ### Why this quantum computing breakthrough is a security risk

Quantum computing will void pretty much all security encryption techniques and open the door to hackers. Here's how to protect ...

## SearchDataCenter

• ### IBM Power9 servers seek market inroads to AI, cloud

IBM follows up its first Power9 server with a raft of systems designed to appeal to a wider array of markets -- most notably, AI ...

• ### Evaluate read-intensive and write-intensive SSD use cases

Consider write wear, performance and other factors when choosing between read-intensive, write-intensive and mixed-use ...

• ### Some hyper-converged infrastructure use cases pose pitfalls

Hyper-converged infrastructure adoption is skyrocketing, but that doesn't mean that the technology is the best choice for every ...

## SearchContentManagement

• ### Content management in the cloud a main theme in 2018

The future of content management resides in the cloud and with AI, as several 2018 conferences will assure you.

• ### Six things to know about today's SharePoint implementations

As companies migrate their on-premises Microsoft SharePoint sites to the cloud, here are some things they should know about the ...

• ### Upgrades for the SharePoint Online portal

As more organizations migrate SharePoint sites to the cloud, Microsoft has increased at-a-glance dashboard data and analytics to ...

## SearchHRSoftware

• ### HR plays to win with gamification for learning

At some companies, corporate education has become a tool for engagement and employee experience. See how gamification is putting ...

• ### HR recruiting tools get VC funding, as tech wages rise

The HR recruiting tools market shows no shortage of investor interest. In two months, three platforms have launched. Rising tech ...

• ### Social media key to future of learning and development

Employees aren't just wasting time on social media; some are learning the career skills that will take them to the next level. ...

Close