immutable class DATES < $DATES{DATES}


Flattened version is here

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



Public


Constants
const Days_in_Week : CARD := 7 ;
const Months_in_Year : CARD := 12 ;
****
const Years_in_Century : CARD := 100 ;

Features
null : SAME


Private

const Base_Wday : WEEKDAYS := OS_TIME::Base_Wday ;
const Base_Year : CARD := OS_TIME::Base_Year ;
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,
attr val : CARD ;
attr val : CARD ;

The Sather Home Page