FUNCTION leap_year

(* SCHEMA explicit_draughting; *)

  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
valid_calendar_date	FUNCTION

[Top Level Definitions] [Exit]

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