CONVDATE

CONVDATE

Convert a date using Hilmas system variables. Supported dates are from 1900 to 2100.

Input to this statement are these Hilmas numeric variables (that must be filled by user):

$DAYH	DS		H	Day in Half Integer
$MONTHH	DS		H	Month in Half Integer
$YEARH	DS		H	Year in Half Integer

 

In Output there are these Hilmas variables:

$DATE	DS		CL8	Date in European format DD/MM/YY
$DAYJUL	DS		F	Julian day: a huge number
$DAYNUM	DS		H	days counter from 1 Jan of the specified year
$DAYWEEK	DS		H	day of week in number
$LAPYEAR	DS		H	0 if leap year, otherwise years spent from last leap year
$CYFLAG	DS		H	Century flag: 0 if year < 2000 otherwise 1

 

Note that :

• $DATE is the same variable used by TIMEDATE and has the same subfields: this allow you to convert a date from numbers to string
• Julian day is a huge number that is simply a day counter: if you know the Julian day of two dates even very far amongst them, is simple to reckon the exact days between them subtracting the julian days. In Hilmas is adopted an Astronomical format of Julian day.