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

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

• ### GDPR data protection edicts make good data governance a must

The European Union's new GDPR law puts the onus on companies to ensure that their data governance and management practices enable...

• ### GDPR rules can spur broader steps to protect sensitive data

Companies need to make compliance with GDPR's requirements on managing personal data a priority, but they should also work to ...

• ### Data integrity protection spurs greater security spending

As hacking, ransomware and malware attacks mount, companies place big data protection and integrity among the primary reasons for...

• ### Cambridge Analytica-Facebook case shows need for ethical data mining

Ethical data collection practices are becoming even more important, as cases like Cambridge Analytica's misuse of Facebook data ...

• ### Rethinking analytics processes spurs enterprise innovation

By taking a fresh look at the makeup of their analytics organizations, enterprises can innovate their business models and take ...

• ### Diversified data sets for analytics deliver top results

Analytics teams should focus on data diversity to ensure that their projects deliver the most meaningful insights -- but they ...

## SearchSAP

• ### SAP indirect access debate tackled in new licensing model

SAP wants to resolve the indirect-access issue with a new, document-based licensing model. Analysts think customers will be happy...

• ### Pros and cons of SAP Cloud Platform integration tools

While SAP offerings are often best for cloud-to-cloud and cloud-to-ground integration, sometimes, it's better to look elsewhere. ...

• ### Supply chain risk assessment a major focus of SAP Ariba

SAP Ariba's Supplier Risk helps companies assess their suppliers in a number of risk categories, but building a responsible ...

## SearchSQLServer

• ### Why running SQL Server on Docker is no longer frowned upon

Microsoft now lets SQL Server databases run in Docker containers, a capability that depends on using volumes to store data in a ...

• ### What the Microsoft GDPR compliance toolkit offers for SQL Server

The set of GDPR compliance tools that Microsoft offers for SQL Server is designed to make it easier for users of the database ...

• ### How much do you know about the components of SQL Server?

From SQL Server Machine Learning Services to the SQL Server Operating System, there's a lot to know about SQL Server. Test your ...

## TheServerSide.com

• ### How JPA and Hibernate simplify data persistence

JPA is the Java standard for data persistence, especially for relational systems. Here, we explore how Hibernate and JPA work ...

• ### Let's talk bitcoin and building blockchain apps fast with Hyperledger

If you're thinking about building blockchain apps, you're probably looking for the right tools and technologies. Hyperledger ...

• ### The best web programming languages for development

Many technologies have emerged to facilitate browser-based development. Here, we look at those technologies in an effort to ...

## SearchDataCenter

• ### Guide to buying server performance monitoring software

Integration, storage and vendor support all affect whether a performance monitoring tool is right for an organization. Mull over ...

• ### How IBM's data science team quickens users' AI projects

In this Q&A, IBM's Seth Dobrin discusses the rising user interest in machine learning and AI projects and the help inexperienced ...

• ### IBM blockchain technology spotlights mainframes

IBM's blockchain offerings aim to ease enterprise IT concerns by combining Z system mainframe hardware with industry-specific ...

## SearchContentManagement

• ### How a digital transformation process helped curb reliance on paper

By moving on from paper, the North Carolina Court System and the Texas Animal Health Commission were able to accommodate ...

• ### Intelligent information management is ready for AI, blockchain

A panel discussion at AIIM 2018 looked at how AI, cloud and blockchain will disrupt the intelligent information management space.

• ### SharePoint 2019 on premises the talk of SharePoint Fest D.C.

This episode of the Pipeline podcast breaks down SharePoint users' concerns about data migration, on-premises version support, ...

## SearchHRSoftware

• ### Video interview platforms make headway against consumer tech

Some recruiters prefer the familiarity of popular video tools, like FaceTime and Skype, but they may be missing out on the rich ...

• ### Workday payroll system covers Minnesota healthcare network

A big physicians group affiliated with the University of Minnesota Medical School opted for a Workday cloud payroll system to ...

• ### Federal HR seeks corporate simplicity, says its new chief

Federal HR has a new reformer, Jeff Pon, the director of the U.S. Office of Personnel Management. He wants to modernize federal ...

Close