Julian Date

[rsims]

How do I convert a Julian date into a calendar date?
Like MMDDCCYY or Month Day, Century Year.

 

[claudeb]

hi, you might find something of interest in this book:

http://kitap.ankara.edu.tr/0672311372/ch27/ch27.htm

good luck

 

[slade]

Hi R,

The most recent versions of COBOL use "intriinsic functions", the most handy of which are the date functions. If you have a COBOL manual or book, look in the index.

Regards, Jack.

 

[slade]

Hi again R,

I did some research and It's more complicated than I first thought. Here's the way to do it:

Get your date field into this format:
05 WS-Y4DDD PIC X(007).

Receiving field:
05 WS-Y4M2D2 PIC X(008).


COMPUTE WS-Y4M2D2 = FUNCTION DATE-OF-INTERGER
(FUNCTION INTERGER-OF-DAY
(WS-Y4DDD))

Now you can reformat the result field to MMDDYYYY.

HAVEN'T TESTED THIS, BUT IT SHOULD WORK.

Regards, Jack.