RE: Generating Julian Date

The point was it was more trouble testing it that it was worth :)  I suppose 
that got lost in the translation :) 

Ok, to keep this on topic for one LAST post, thanks everyone for your 
assistance it was greatly appreciated.  We have it working and all is 
pleasant in our humble abode now, with the exception of the six dog, nine 
cats, and 7 kids.


On Fri, 06 Jan 2006 11:13:46 -0700, michael wrote
> C? Do it in RPG...
> 
> D jd              S             30  0                          
> D y               s             30  0 Inz(2006)                
> D m               s             30  0 Inz(1)                   
> D d               s             30  0 Inz(6)
> 
>  /free                                                         
>    jd = ( 1461 * ( y + 4800 + ( m - 14 ) / 12 ) ) / 4 +        
>         ( 367 * ( m - 2 - 12 * ( ( m - 14 ) / 12 ) ) ) / 12 -  
>         ( 3 * ( ( y + 4900 + ( m - 14 ) / 12 ) / 100 ) ) / 4 + 
>          d - 32075;
> 
>    Dump(a);
> 
>    *InLR = *On;                                                
>  /end-free
> 
> > -------- Original Message --------
> > Subject: RE: Generating Julian Date
> > From: "Douglas W. Palme" <dpalme@xxxxxxxxxxx>
> > Date: Fri, January 06, 2006 12:42 pm
> > To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> > 
> > You should not have done that Ron, now I have to fire up C and actually 
run 
> > this and see what it does......
> > 
> > 
> > 
> > On Fri, 6 Jan 2006 09:13:27 -0330, RPower wrote
> > > Apparently... and they say us coders are weird?  I checked out that 
> > > site Rob posted, but it's too early, not enough coffee and then I 
> > > saw this: jd = ( 1461 * ( y + 4800 + ( m - 14 ) / 12 ) ) / 4 +
> > >           ( 367 * ( m - 2 - 12 * ( ( m - 14 ) / 12 ) ) ) / 12 -
> > >           ( 3 * ( ( y + 4900 + ( m - 14 ) / 12 ) / 100 ) ) / 4 +     
> > >      d - 32075 and thought, thank god for the BIF's in rpg... I'll 
> > > just forget about it lol.
> > > 
> > > Ron Power
> > > Programmer
> > > Information Services
> > > City Of St. John's, NL
> > > P.O. Box 908
> > > St. John's, NL
> > > A1C 5M2
> > > 709-576-8132
> > > rpower@xxxxxxxxxx
> > > http://www.stjohns.ca/
> > > 
___________________________________________________________________________
> > > Success is going from failure to failure without a loss of 
> > > enthusiasm. - Sir Winston Churchill
> > > 
> > > "Holden Tommy" <Tommy.Holden@xxxxxxxxxxxxxxxxx> 
> > > Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> > > 2006/01/05 06:50 PM
> > > Please respond to
> > > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> > > 
> > > To
> > > "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> > > cc
> > > 
> > > Subject
> > > RE: Generating Julian Date
> > > 
> > > >From the link below <snip>According to the system of numbering days
> > > called Julian day numbers, used by astronomers and calendricists (those
> > > who study calendars, unfortunately not for a living), </snip>
> > > 
> > > So people actually study calendars....for fun?? Eww....
> > > 
> > > Thanks,
> > > Tommy Holden
> > > 
> > > -----Original Message-----
> > > From: rpg400-l-bounces@xxxxxxxxxxxx
> > > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
> > > Sent: Thursday, January 05, 2006 4:00 PM
> > > To: RPG programming on the AS400 / iSeries
> > > Subject: Re: Generating Julian Date
> > > 
> > > Ordinal vs. Julian?
> > > As I've always been led to believe a Julian date was YYDDD and a 
> > > long Julian was YYYYDDD where DDD was which day of that particular 
> > > year it was.  However, true a Julian date is damn near explained 
> > > like Star Trek's star date. http://www.hermetic.ch/cal_stud/jdn.htm
> > > 
> > > Rob Berendt
> > > -- 
> > > Group Dekko Services, LLC
> > > Dept 01.073
> > > PO Box 2000
> > > Dock 108
> > > 6928N 400E
> > > Kendallville, IN 46755
> > > http://www.dekko.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.
> > > 
> > > -- 
> > > 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.
> > 
> > 
> > If you bought it, it was hauled by a truck - somewhere, sometime.
> > 
> > -- 
> > 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.


If you bought it, it was hauled by a truck - somewhere, sometime.