[Bulk] Julian date

Mon Mar 15 10:17:46 CDT 2010

There is likely no need for Ken's complicated conversion logic!

Just define your date item as type "jdate" and Powerhouse will convert
to Julian format. If you are converting from a century included date
then you'll need to use the removecentury function. As in:

>define d-julian-date jdate = removecentury(sysdate)

>report sysdate d-julian-date format yyddd

Note that any date may be displayed in any format. Even a jdate will be
displayed in the dictionary's default format so you'll probably need to
include the format option.

JWP

________________________________

From: powerh-l-bounces+john.pickering=norbord.com at lists.sowder.com
[mailto:powerh-l-bounces+john.pickering=norbord.com at lists.sowder.com] On
Behalf Of Ken Langendock
Sent: Monday, March 15, 2010 11:12 AM
To: 'Lowe, Chuck J'; powerh-l at lists.sowder.com
Subject: RE: [Bulk] Julian date

Try this

; Julian Date Calculations

  DEFINE D-CurrentYY CHARACTER * 2 &

       = ASCII(SYSDATE,8)[3:2]

  DEFINE D-JanuaryFirst DATE &

       = NCONVERT(ASCII(SYSDATE,8)[1:4] + "0101")

  DEFINE D-CurrentDay CHARACTER * 3 &

       = ASCII(DAYS(SYSDATE) &

       - DAYS(D-JanuaryFirst) + 1,3)

  DEFINE D-JulianDate CHARACTER * 5 &

       = D-CurrentYY &

       + D-CurrentDay

From: powerh-l-bounces+ken.langendock=rogers.com at lists.sowder.com
[mailto:powerh-l-bounces+ken.langendock=rogers.com at lists.sowder.com] On
Behalf Of Lowe, Chuck J
Sent: March 15, 2010 10:59 AM
To: powerh-l at lists.sowder.com
Subject: [Bulk] Julian date

I must be having a bad day.  Can anyone give me the code to find out the
Julian date for a day .  I.e. February 2nd would be 33.  In QTP would be
preferable. 

Thanks!

Please think about resource conservation before you print this message

------------------------------------------ 
The contents of this message, together with any attachments, are
intended only for the use of the person(s) to which they are addressed
and may contain confidential and/or privileged information. Further, any
medical information herein is confidential and protected by law. It is
unlawful for unauthorized persons to use, review, copy, disclose, or
disseminate confidential medical information. If you are not the
intended recipient, immediately advise the sender and delete this
message and any attachments. Any distribution, or copying of this
message, or any attachment, is prohibited. 

No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 9.0.733 / Virus Database: 271.1.1/2748 - Release Date: 03/15/10
03:33:00

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.sowder.com/pipermail/powerh-l/attachments/20100315/f9b16edf/attachment-0001.htm 