FUNCTION leap_year

(* SCHEMA STRUCTURAL_FRAME_SCHEMA; *)


FUNCTION leap_year
 		(year : year_number) : BOOLEAN;
 		
 		IF ((((year MOD 4) = 0) AND ((year MOD 100) <> 0)) OR
 		((year MOD 400) = 0)) THEN
 			RETURN(TRUE);
 		ELSE
 			RETURN(FALSE);
 		END_IF;
END_FUNCTION; (* STEP Part 41 unchanged in 2nd edition *)

Referenced By

Defintion leap_year is references by the following definitions:

Definition	Type
valid_calendar_date	FUNCTION

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2023-03-25T00:11:39-04:00