|
midrange.com
Lilian dates are used by the various ILE CEE APIs. In the V5R3 Information
Center they can be found under Programming/APIs/APIs by category/ILE
CEE/Date and Time APIs
This type of format is very useful when working for instance with
durations.
Bruce Vining
"Weber, Richard"
<Weberr@xxxxxxxxx
om> To
Sent by: "'RPG programming on the AS400 /
rpg400-l-bounces@ iSeries'" <rpg400-l@xxxxxxxxxxxx>
midrange.com cc
Subject
10/11/2005 10:47 RE: Date question
AM
Please respond to
RPG programming
on the AS400 /
iSeries
When I first read "Lillian date" I thought it was either a joke or a typo.
But I ran a search on it and came up with the following definition:
Lillian date. The Lillian date is the number of days since 14 October 1582
[being the beginning of the Gregorian Calendar], and the valid range of the
Lillian dates is 1 to 3,074,324. [ 15 October 1582 to 31 December 9999 ].
Named for Aloysius Lilius who was an advisor to Pope Gregory XIII & who
together with his brother constructed the Gregorian Calendar.
I don't see any practical use for it and I have never seen it as a choice
for date format. I think he's looking for Julian date. (Not Lillian's
husband! :) The julian format is supported using the *JUL or *LONGJUL
depending on whether you want a 2 or a 4 digit year.
Rick Weber | TЯU International
-----Original Message-----
From: Booth Martin [mailto:booth@xxxxxxxxxxxx]
Sent: Tuesday, October 11, 2005 11:24 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Date question
Isn't the date you are creating what is called Lillian date? Does the
iSeries handle Lillian dates?
---------------------------------
Booth Martin
http://www.martinvt.com
---------------------------------
-------Original Message-------
From: RPG programming on the AS400 / iSeries
Date: 10/11/05 10:20:17
To: RPG programming on the AS400 / iSeries
Subject: Re: Date question
You know, I must admit, I tried a variation on what you suggested, and this
is a bit simpler, when you use %Int and %Char (%Int doesn't accept a date
as
a parm directly). I changed the test pgm to the following, and it works --
four-digit year and all:
D DateA S D Inz(d'2005-01-01')
D DateB S D Inz
D NumDays S 10U 0 Inz
/Free
*InLR=*On;
NumDays=%Int(%Char(DateA:*ISO0));
DateB=%Date(NumDays:*ISO);
Return;
/End-Free
Thanks for the tip!
On 10/10/05, Jon Paris <Jon.Paris@xxxxxxxxxxxxxx> wrote:
>
> >> Wacky? maybe, but saving 6 bytes per element can help sometimes.
>
> I don't disagree - but why bother with the date math stuff? Why not
> simply
> use %Int to convert the date to its numeric equivalent and store that?
> It
> has to use less resource and has the advantage that in debug the data
> will
> still make sense.
>
> Jon Paris
> Partner400
>
> www.Partner400.com <http://www.Partner400.com>
> www.RPGWorld.com <http://www.RPGWorld.com>
>
> --
> 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.
>
>
--
"Enter any 11-digit prime number to continue..."
"In Hebrew SQL, how do you use right() and left()?..." - Random Thought
"If all you have is a hammer, all your problems begin to look like nails"
--
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 email message is for the sole use of the intended recipient (s) and
may
contain confidential and privileged information. Any unauthorized review,
use, disclosure or distribution is prohibited. If you are not the intended
recipient, please contact the sender by reply email and destroy all copies
of the original message. To reply to our email administrator directly, send
an email to EmailAdmin@xxxxxxxxxxxx
Toys "R" Us, Inc.
--
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.
