superk Advanced

Joined: 19 Dec 2002 Posts: 684 Topics: 5
|
Posted: Fri Jul 09, 2004 10:02 am Post subject: |
|
|
Date Conversions in REXX:
Julian to Gregorian:
Code: |
jdate = 04050
Say J2G1(jdate) = 731629
Say J2G2(jdate) = 19/02/04
Say J2G3(jdate) = February
Say J2G4(jdate) = 19 Feb 2004
Say J2G5(jdate) = 04/02/19
Say J2G6(jdate) = 20040219
Say J2G7(jdate) = 02/19/04
Say J2G8(jdate) = Thursday
J2G1:
RETURN DATE('B',ARG(1),'J')
J2G2:
RETURN DATE('E',ARG(1),'J')
J2G3:
RETURN DATE('M',ARG(1),'J')
J2G4:
RETURN DATE('N',ARG(1),'J')
J2G5:
RETURN DATE('O',ARG(1),'J')
J2G6:
RETURN DATE('S',ARG(1),'J')
J2G7:
RETURN DATE('U',ARG(1),'J')
J2G8:
RETURN DATE('W',ARG(1),'J')
|
Gregorian to Julian:
Code: |
gdate = '02/19/04'
Say G2J1(gdate) = 50
G2J1:
RETURN DATE('D',ARG(1),'U')
|
|
|