[Bulk] Julian date

Mon Mar 15 11:35:34 CDT 2010

Thanks guys. 

John, I'm going with Ken's version.  I need the actual Julian day, 074
for today's date. His solution gives me that in D-CurrentDay.  

The option you give is for reporting only.  I need to store it in a
batch header record with QTP. 

Unless you can tell me how to do that in your version. 

Either way, I appreciate both answers. 

PS.  Just found out there is a system variable set   HPDOY that will
also give me it. 

GLO TEMP JULIAN-DAY     ZON*03 INIT NCON(GETSYSTEMVAL("HPDOY")[1:3])

________________________________

From: Pickering, John (NORBORD) [mailto:John.Pickering at norbord.com] 
Sent: Monday, March 15, 2010 11:18 AM
To: Ken at Langendock.com; Lowe, Chuck J; powerh-l at lists.sowder.com
Subject: RE: [Bulk] Julian date

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

------------------------------------------
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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.sowder.com/pipermail/powerh-l/attachments/20100315/f10b5f4b/attachment-0001.htm 