Convert Julian dates

[Latimer, Richard]

Hi Ron,
 
try the following, but note that it doesn't do century transitions ...
 
num_jdetfrdte is the julian date 
t_tfrdte is the gregorian one
 
                     
                                                          
define t_jyear num*2 = floor(num_jdetrfdte/1000)          
define t_jday  num*3 = num_jdetrfdte - (t_jyear * 1000)   
define t_yearstart num*8 = &                              
   ncon(ccon(1900 + t_jyear) + "0101")                    
define t_trfdte date = &                                  
   date((days(t_yearstart) + t_jday)-1)          
 
 
cheers
Richard         
                                                          

  _____  

From: powerh-l-bounces+richard.latimer=airways.co.nz at lists.sowder.com
[mailto:powerh-l-bounces+richard.latimer=airways.co.nz at lists.sowder.com]
On Behalf Of lorcan-computers at fsmail.net
Sent: Friday, 30 March 2007 9:06 p.m.
To: powerhouse
Subject: Convert Julian dates



Does anyone have a bit of quiz/qtp code to convert Julian dates to
Gregorian ones

Cheers

 

Ron


**********************************************************************
This electronic message together with any attachments is confidential. If
you receive it in error: (i) you must not use, disclose, copy or retain
it; (ii) please contact the sender immediately by reply email and then
delete the emails. Views expressed in this email may not be those of the
Airways Corporation of New Zealand Limited
**********************************************************************

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.sowder.com/pipermail/powerh-l/attachments/20070402/6647f457/attachment.htm