immutable class DATES < $DATES{DATES} |
---|
$DATES{_} | $ANCHORED_FMT | $FMT | $STR | $TEXT | $BINARY | $HASH | $IS_EQ | $ORDERED{_} | $IS_LT{_} | $VALUE{_} | $NIL | $IS_NIL |
const Days_in_Week : CARD := 7 ; |
---|
const Months_in_Year : CARD := 12 ; |
---|
**** |
const Years_in_Century : CARD := 100 ; |
---|
null : SAME |
---|