FUNCTION leap_year

(* SCHEMA integrated_cnc_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; -- 10303-41: date_time_schema

Referenced By

Defintion leap_year is references by the following definitions:

Definition	Type
ordinal_date	ENTITY
valid_calendar_date	FUNCTION

[Top Level Definitions]

Generated by STEP Tools^TM EXPRESS to HTML Converter
on 2010-01-12T10:42:26-02:00