indexing
	description: "Facility routines to check the validity of DATE_TIMEs"
	status: "See note at end of class"
	date: "$Date$"
	revision: "$Revision$"
class interface
	DATE_TIME_VALIDITY_CHECKER
feature 
	date_time_valid (s: STRING; code_string: STRING): BOOLEAN
			
			DATE_TIME
			scode_string
		require
			s_exists: s /= void
			code_exists: code_string /= void
	date_time_valid_with_base (s: STRING; code_string: STRING; base: INTEGER): BOOLEAN
			
			DATE_TIME
			scode_string
			base
		require
			s_exists: s /= void
			code_exists: code_string /= void
			base_valid: base > 0 and (base \\ 100 = 0)
	is_correct_date_time (y, mo, d, h, mi: INTEGER; s: DOUBLE; twelve_hour_scale: BOOLEAN): BOOLEAN
			ymodhmis
			
			twelve_hour_scale
			
	
invariant
		 ANY
	reflexive_equality: standard_is_equal (Current)
	reflexive_conformance: conforms_to (Current)
end -- DATE_TIME_VALIDITY_CHECKER