FUNCTION leap_year

(* SCHEMA Ap242_managed_model_based_3d_engineering_mim_LF; *)

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;

Referenced By

Defintion leap_year is references by the following definitions:

Definition	Type
ordinal_date	ENTITY
valid_calendar_date	FUNCTION

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:20:10-04:00