immutable class OS_TIME < $OPSYS_TIME


Flattened version is here

Ancestors
$OPSYS_TIME



Public


Readable Attributes
attr days : CARD ;
**** whole day count from base date
attr millisecs : CARD ;
**** so far this day

Constants
const Base_Wday : WEEKDAYS := WEEKDAYS::Thursday ;
const Base_Year : CARD := 1970 ;
const Hours_per_Day : CARD := 24 ;
const Microseconds_per_Millisec : CARD := 1000 ;
const Millisecs_per_Second : CARD := 1000 ;
const Mins_per_Hour : CARD := 60 ;
const Seconds_per_Day : CARD := Seconds_per_Min * Mins_per_Hour *
const Seconds_per_Min : CARD := 60 ;
const Ticks_per_Day : CARD := Seconds_per_Day * Ticks_per_Second ;
const Ticks_per_Millisec : CARD := 1 ;
const Ticks_per_Second : CARD := Millisecs_per_Second * Ticks_per_Millisec ;

Features
read_possible : BOOL


Private

attr days : CARD ;
**** whole day count from base date
attr millisecs : CARD ;
**** so far this day

The Sather Home Page