RE: Change the day of a date

Too bad %SubDt can't be used on the left side of an EVAL like %SubSt:

If %SubDt( MyNewDateField : *Days ) > 15;
%SubDt( MyNewDateField : *Days ) = 16;
Else;
%SubDt( MyNewdateField : *Days ) = 1;
EndIf;

Paul Morgan

Principal Programmer Analyst
IT Supply Chain/Replenishment

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Dennis Lovelady
Sent: Tuesday, June 12, 2012 6:12 AM
To: 'RPG programming on the IBM i / System i'
Subject: 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 ;Nice.

Super-mini improvement is to do without the work field, and to modernize the
syntax:

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

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"That was Benes' fifth strikeout of the day. He came in with 94, so now he
has 104 strikeouts for the year."
-- sportscaster Ralph Kiner

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