RE: Months are weird, was '3 Months Ago?' -- RPG400-L

Nope...wasn't looking at v5r4 after all <grin>

I see it now.

Thanks,
Charles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of BirgittaHauser
Sent: Thursday, May 17, 2007 1:10 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: AW: Months are weird, was '3 Months Ago?'

Hi Charles,

May be you downloaded an early version of the SQL-Reference?

I remember, the first reference I downloaded, immediately
after the announcement of the new release, was not yet
completed. My current version is downloaded on 4/17/2006 and
the scalar function is documented there.
I also just checked the documentation in the i5/OS
Information Center and found there the documentation either.

As far as I remember we didnot need any PTF to get this
scalar function.

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the
stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek
Bok) "What is worse than training your staff and losing them?
Not training them and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces+hauser=sss-software.de@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+hauser=sss-software.de@xxxxxxxxxxxx]
Im Auftrag von Wilt, Charles
Gesendet: Thursday, May 17, 2007 18:50
An: RPG programming on the AS400 / iSeries
Betreff: RE: Months are weird, was '3 Months Ago?'

Birgitta,

The v5r4 reference manual makes no mention of an Add_Months()
function.

Was it PTF'd in?

Charles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of BirgittaHauser
Sent: Thursday, May 17, 2007 10:12 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: AW: Months are weird, was '3 Months Ago?'

Hi,

If you want to guarantee, that adding or substracting a number of
months to the month's end will also result in a month end

and if you

are already on release V5R4, you can use the SQL scalar function
Add_Months.

Example:
D MyStartDate S D
D MyEndDate S D
*******************************************************************
/Free
MyStartDate = D'2007-05-31';
Exec SQL Set :MyEndDate = Add_Months(:MyStartDate, -3);
Dsply MyEndDate; //--> '2007-02-28'

Exec SQL Set :MyEndDate = Add_Months(:MyEndDate, 3);
Dsply MyEndDate; //--> '2007-05-31'

MyStartDate = D'2007-04-30';
Exec SQL Set :MyEndDate = Add_Months(:MyStartDate, -3);
Dsply MyEndDate; //--> '2007-01-31'

Exec SQL Set :MyEndDate = Add_Months(:MyEndDate, 3);
Dsply MyEndDate; //--> '2007-04-30'

*InLR = *On;
/End-Free

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among

the stars."

(Les
Brown)
"If you think education is expensive, try ignorance." (Derek
Bok) "What is worse than training your staff and losing them?
Not training them and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im Auftrag von
AGlauser@xxxxxxxxxxxx
Gesendet: Thursday, May 17, 2007 15:59
An: RPG programming on the AS400 / iSeries
Betreff: Re: Months are weird, was '3 Months Ago?'

Booth Martin wrote on 17/05/2007 09:39:50:

What bothers me is that dates don't round trip well. Does

March 31st

less one month, plus one month, equal March 31st?

It bothers me too, but I'm not sure there would be a

sensible way to

implement month arithmetic so that March 31 could round

trip. Suppose

that

a = 2007-03-31
b = a - 1 month + 1 month

If b = a, then you would just have another inconsistency.

c = a - 1 month
d = 2007-02-28

I think that we can agree that c = d. But then you have

c + 1 month = d + 1 month
(a - 1 month) + 1 month = (2007-02-28) + 1 month
2007-03-31 = 2007-02-28
.........................
uh-oh!

Dates arithmetic will never behave like integer arithmetic, because
'months' and 'years' are not really consistently defined.

Attention:

The information contained in this message and or attachments is
intended only for the person or entity to which it is addressed and
may contain confidential and/or privileged material. Any review,
retransmission, dissemination or other use of, or taking of

any action

in reliance upon, this information by persons or entities

other than

the intended recipient is prohibited. If you received this

message in

error, please contact the sender and delete the material from any
system and destroy any copies. Thank you for your time and
consideration.

Attention:

Le contenu de ce message et(ou) les fichiers ci-joints sadressent
exclusivement ` la personne ou -entiti ` laquelle ils sont

destinis.

Ils peuvent contenir de linformation confidentielle,

protigie et(ou)

classifiie. Il est

strictement interdit ` toute personne ou entiti autre que
le(la) destinataire
privu(e) de ce message dexaminer, de riviser, de

retransmettre ou de

diffuser cette information, de prendre une quelconque action en
fonction ou sur la base de celle-ci, ou den faire tout

autre usage.

Si vous avez regu ce message par erreur, veuillez communiquer avec
lexpiditeur(trice), supprimer ce message et les fichiers

ci-inclus de

tout systhme, et en ditruire toutes copies, quelles soient
ilectroniques ou imprimies. Nous vous remercions de votre entihre
collaboration.

--
This is the RPG programming on the AS400 / iSeries

(RPG400-L) mailing

list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting,

please take a

moment to review the archives at

http://archive.midrange.com/rpg400-l.

This e-mail transmission contains information that is
intended to be confidential and privileged. If you receive
this e-mail and you are not a named addressee you are hereby
notified that you are not authorized to read, print, retain,
copy or disseminate this communication without the consent of
the sender and that doing so is prohibited and may be
unlawful. Please reply to the message immediately by
informing the sender that the message was misdirected. After
replying, please delete and otherwise erase it and any
attachments from your computer system. Your assistance in
correcting this error is appreciated.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

This e-mail transmission contains information that is intended to be
confidential and privileged. If you receive this e-mail and you are not a
named addressee you are hereby notified that you are not authorized to read,
print, retain, copy or disseminate this communication without the consent of
the sender and that doing so is prohibited and may be unlawful. Please reply
to the message immediately by informing the sender that the message was
misdirected. After replying, please delete and otherwise erase it and any
attachments from your computer system. Your assistance in correcting this
error is appreciated.