RE: Change the day of a date

This is one of those occasions where I'd be tempted to do a variation
of the "old" approach and probably bury it in a subproc. I love the
date functions but speed wise this is going to win every time.

D DS
D MyNewDateField...
D d DatFmt(*USA)
D Month 2s 0 Overlay(MyNewDateField)
D 1a Overlay(MyNewDateField:
*next)
D Day 2s 0 Overlay(MyNewDateField:
*next)

/Free
If Day >= 16;
Day = 16;
Else;
Day = 1;
EndIf;

Jon Paris

Hey, Jon:

Just curious how you'd feel about this:

D DS
D MyNewDateField...
D d DatFmt(*USA)
D Month 2s 0 Overlay(MyNewDateField)
D 1a Overlay(MyNewDateField: *next)
D Day 2s 0 Overlay(MyNewDateField: *next)

/Free
// Since day is never > 31, this will result always in
// a value of 1 or 16. 0-15=1; 16-31=16
Day = Day / 16 + 1 ;

Of course, I would *never* actually put something like that into production
(eyes dart to potential witnesses). . .

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"The brain is a wonderful organ; it starts the moment you get up in the
morning and does not stop until you get to the office."
-- Robert Frost