immutable class ERA_DATES < $DATES{ERA_DATES}


Flattened version is here

Ancestors
$DATES{_} $ANCHORED_FMT $FMT $STR
$TEXT $BINARY $HASH $IS_EQ
$ORDERED{_} $IS_LT{_} $VALUE{_} $NIL
$IS_NIL



Public


Features
nil : SAME


Private

const Base_Wday : WEEKDAYS := WEEKDAYS::Sunday ;
**** ??????????????????????
const Base_Year : CARD := 1900 ;
**** ?????????????????????
const Days_in_Week : CARD := 7 ;
****
const Days_in_Year : CARD := 365 ;
**** in an ordinary year anyway!
const February : CARD := 2 ;
**** ??????????????????????
const Leap_Cycle : CARD := 4 ;
const Month_Max : ARRAY{CARD} := | 0, 31, 28, 31, 30, 31, 30,
****
const Years_in_Era : CARD := 100 ;
**** ??????????????????????
attr val : CARD ;
attr val : CARD ;

The Sather Home Page