Q

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

• With better scaling, semantic technology knocks on enterprise's door

Cambridge Semantics CTO Sean Martin says better scalability can lead to richer representations of data. Such advances are behind ...

• Big data management and analytics weather tumult -- with more in store

Cloud had a big impact on big data management and analytics last year. Machine learning and streaming designs will contribute to ...

• Embedded analytics to feel widest impact of machine learning projects

Ovum analyst Tony Baer discusses machine learning tools, IoT-driven streaming analytics and Hadoop in the cloud, all of which ...

• Efforts to monetize data should be built for the long haul

Most companies have data monetization opportunities they could exploit, experts say. But a clear strategy and long-term plan are ...

• Debate over big data and privacy is just getting started

For years, the tension between privacy and big data has been apparent, but with emerging technologies generating huge amounts of ...

• Missions for monetizing data need lift from upfront groundwork

Organizations launching data monetization strategies should factor some key initial steps into their plans to develop ...

SearchSAP

• SAP HANA, express edition makes HANA easier for non-SAP developers

Relaxed RAM and licensing requirements and the ability to run on local machines could help popularize the HANA in-memory platform...

• SAP futurists name five future technology trends to plan for now

Three SAP futurists explain what future technology trends in augmented reality, blockchain, AI, robotics, and contingent labor ...

• Abakus acquisition beefs up SAP Hybris marketing portfolio

SAP acquires Abakus marketing measurement software for SAP Hybris marketing suite; openSAP adds new courses for S/4HANA, data ...

SearchSQLServer

• Options for scaling out SQL Server applications to boost workloads

Scaling out a database to meet the needs of a heavy processing workload can be a challenge. Here are details on the SQL Server ...

• Four trends that will impact SQL Server DBAs in 2017

Flash storage adoption, cloud computing's growth, Linux's increased importance and broader big data integration are a few trends ...

• DATEADD and DATEDIFF SQL functions for datetime values

DATEADD and DATEDIFF SQL functions allow you to easily perform calculations, like adding a time interval from a datetime value. ...

TheServerSide

• Is JSON and XML your REST performance bottleneck?

Learn how ASCII encoding formats like JSON and REST can adversely impact server application performance compared with emerging ...

• Making multi-cloud deployment a reality at Netflix with Spinnaker

Learn how Netflix leveraged automation and Spinnaker to perform 4,000 multi-cloud deployments per day.

• The benefits of Java microservices in a Docker and DevOps world

To seasoned developers, microservices may sound like SOA by another name. But Java microservices apps delivered via Docker ...

SearchDataCenter

• HPE-SimpliVity deal raises support, price and development questions

With HPE's buy of No. 2 SimpliVity -- the first big deal in the HCI space -- IT pros see a more robust offering, but also higher ...

• Converged infrastructure drop-off doesn't mean data center death

Traditional converged infrastructure has been supplanted by hyper-converged infrastructure and cloud computing, but it remains a ...

• New options to evolve your data backup and recovery plan

The server backup market first evolved to protect VMs, but now it's undergoing another transformation. Find out how it's evolved ...

SearchContentManagement

• Why SharePoint Framework could benefit business, not just developers

SharePoint Framework heralds a new, mobile-friendly, low-code era for Microsoft, which may give some organizations without .NET ...

• Using Microsoft MyAnalytics to improve workers' time management

Microsoft MyAnalytics has been hailed as the next great thing for analyzing worker productivity. But how can employees be assured...

The open source Drupal content management system offers users responsive design and WYSIWYG content and web development tools, as...

SearchFinancialApplications

• ADP acquires performance coaching and employee engagement software

The Marcus Buckingham Company's cloud-based performance management and employee engagement software is set to be integrated into ...

• Six keys to creating strong data-security measures

The rush to embrace digital technologies can put organizations at extreme risk. Here are six foundations for creating an ...

• Group-chat software sees explosive growth and intense competition

Microsoft Teams and Workplace by Facebook are facing off against rivals such as HipChat and Slack in a high-stakes competition ...

Close