INTEGER FUNCTION JULIAN( YEAR, MONTH, MDAY )
INTEGER YEAR ! year, integer, YYYY
INTEGER MONTH ! month-number 1...12
INTEGER MDAY ! day-of-month 1...31
int julianc( int year ,
int month ,
int mday ) ;
NOTE: This is not the Julian date -- only the day-number. To get the Julian date:
JDATE = 1000 * YEAR + JULIAN ( YEAR, MONTH, MDAY )
See also subroutines DAYMON(), ISDSTIME(), WKDAY(), MMDDYY(), and DT2STR() as well as EDSS/ Models-3 date-time manipulation programs gregdate and juldate.
#include "iodecl3.h" if called from C.
Valid YEAR, MONTH, MDAY
...
INTEGER JULIAN
INTEGER JDATE, YEAR
...
YEAR = 1988
JDATE = 1000 * YEAR + JULIAN( YEAR, 3, 21 )
C Now JDATE is the Models-3 Julian date for March 21, 1988
...
...
#include "iodecl3.h"
...
int jdate, year, month, mday ;
...
year = 1999 ;
month = 4 ;
mday = 1 ,
jdate = 1000 * year + julianc( year, month, mday ) ;
/* Now jdate is the Models-3 Julian date for
April Fool's Day, 1999 */
...
Up: Date-Time Manipulation Routines
To: Models-3/EDSS I/O API: The Help Pages