RE: Generating Julian Date

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.