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

# Coding for unique calendar year, part 2

What to do if the calendar starts from April 21 as the first day of the first month, and each month has 30 days?...

(Assuming there are only 360 (= 12 x 30) days in a year.)

Continued from part 1.

### Code for M30-Gregorian Conversion Functions

``` CREATE OR REPLACE FUNCTION from_m30 ( in_text CHAR ) RETURN DATE -- ********************* -- ** f r o m _ 3 0 ** -- ********************* -- from_m30 returns the DATE corresponding to the m30 date passed -- in in_text ('YYYY-MM-DD' format). IS greg_year_val PLS_INTEGER; m30_day_val PLS_INTEGER := TO_NUMBER ( SUBSTR (in_text, 9, 2), '99' ); m30_month_val PLS_INTEGER := TO_NUMBER ( SUBSTR (in_text, 6, 2), '99' ); m30_new_year_dt DATE; m30_year_val PLS_INTEGER := TO_NUMBER ( SUBSTR (in_text, 1, 4), '9999' ); year_offset_val PLS_INTEGER := 78; -- Gregorian year of M30 year 0 BEGIN greg_year_val := m30_year_val + year_offset_val; RETURN TO_DATE ( TRIM ( TO_CHAR ( greg_year_val, '0000' ) ) || '0420', 'YYYYMMDD' ) + (30 * (m30_month_val - 1)) + m30_day_val; END from_m30; / CREATE OR REPLACE FUNCTION to_m30 ( in_date DATE ) RETURN CHAR -- ******************* -- ** t o _ m 3 0 ** -- ******************* -- to_m30 returns a string representing an M30 date in -- 'YYYY-MM-DD' format (the same format from_m30 uses). IS m30_day_val PLS_INTEGER; m30_new_year_date DATE; m30_month_val PLS_INTEGER := 1; m30_year_val PLS_INTEGER; year_begin_text CHAR (4); year_offset_val PLS_INTEGER := 78; -- Gregorian year of M30 year 0 BEGIN m30_year_val := TO_NUMBER ( TO_CHAR ( in_date, 'YYYY' ), '9999' ) - year_offset_val; IF TO_CHAR (in_date, 'MMDD') > '0420' THEN -- New year was in same Gregorian year year_begin_text := TO_CHAR ( in_date, 'YYYY' ); ELSE -- New Year was in previous Gregorian year year_begin_text := TO_CHAR ( ADD_MONTHS (in_date, -12), 'YYYY' ); m30_year_val := m30_year_val - 1; END IF; m30_new_year_date := TO_DATE ( year_begin_text || '-04-21', 'YYYY-MM-DD' ); m30_year_val := TO_NUMBER (year_begin_text, '9999') - year_offset_val; m30_month_val := 1; -- Assumed: may be changed in loop below m30_day_val := (in_date - m30_new_year_date) + 1; WHILE m30_day_val > 30 LOOP m30_day_val := m30_day_val - 30; m30_month_val := m30_month_val + 1; END LOOP; RETURN TRIM (TO_CHAR (m30_year_val, '0000')) || '-' || TRIM (TO_CHAR (m30_month_val, '00')) || '-' || TRIM (TO_CHAR (m30_day_val, '00')); END to_m30; /
```

This was last published in October 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

In big data news, we find Google TPUs, or Tensor Processing Units, offered as a cloud service, while LinkedIn is open sourcing a ...

• ### 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 ...

• ### Tableau vs. Qlik Sense: Pros and cons of the rival analytics tools

Products from the two top data visualization vendors are starting to resemble each other as the need for strong visualizations ...

• ### 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

• ### IBM hones in on AI talentat developerconfab

IBM and others target developers interested in building artificial intelligence applications as the number of skilled AI ...

• ### 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 ...

## 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

• ### Federal HR applications need a makeover, Trump administration says

U.S. government HR systems are heavily customized and out-of-date. They can't share data effectively, crimping the use of people ...

• ### AI-enabled recruitment management systems seek out bias

Software for recruiters is seen as a tool in identifying hiring bias and improving diversity. The goal is to improve ...

• ### Your competitors are amassing armies of recruiting chatbots

AI is the new digital divide. Bots screen résumés in a fraction of the time, and emotion analytics weeds out corporate killjoys. ...

Close