    deferred class
    	DATE_MEASUREMENT

    General
    	cluster: time
    	description: "Date Measurement"

    Ancestors
    	DATE_CONSTANTS

    Queries
    	date_default_format_string: STRING_8
    	Date_time_tools: DATE_TIME_TOOLS
    	day: INTEGER_32
    	days_in_i_th_month (i, y: INTEGER_32): INTEGER_32
    	Days_in_leap_year: INTEGER_32
    	days_in_month: INTEGER_32
    	Days_in_non_leap_year: INTEGER_32
    	Days_in_week: INTEGER_32
    	days_text: ARRAY [STRING_8]
    	default_format_string: STRING_8
    	is_leap_year (y: INTEGER_32): BOOLEAN
    	long_days_text: ARRAY [STRING_8]
    	long_months_text: ARRAY [STRING_8]
    	Max_weeks_in_year: INTEGER_32
    	month: INTEGER_32
    	Months_in_year: INTEGER_32
    	months_text: ARRAY [STRING_8]
    	year: INTEGER_32

    Commands
    	set_date (y, m, d: INTEGER_32)
    	set_day (d: INTEGER_32)
    	set_month (m: INTEGER_32)
    	set_year (y: INTEGER_32)