× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. June 2012

Re: Change the day of a date

One possible means:

DayNbr = %subdt( MyNewDateField : *DAYS ) ;
if DayNbr >= 16 ; // set day to 16
MyNewDateField = MyNewDateField - %days( DayNbr - 16 ) ;
else ; // <= 15 ; set day to 01
MyNewDateField = MyNewDateField - %days( DayNbr - 01 ) ;
endif ;

Regards, Chuck

On 12 Jun 2012 01:53, Dave wrote:

Is there a nice way to do this, given a date DD/MM/YYYY:

If the day of my date field is the 16th or later,
MyNewDateField = 16/MM/YYYY

Else
MyNewDateField = 01/MM/YYYY


As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.