immutable class ERA_DATES < $DATES{ERA_DATES} |
---|
$DATES{_} | $ANCHORED_FMT | $FMT | $STR | $TEXT | $BINARY | $HASH | $IS_EQ | $ORDERED{_} | $IS_LT{_} | $VALUE{_} | $NIL | $IS_NIL |
nil : SAME |
---|
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 ; |
---|