(* SCHEMA IFC2X3; *)
FUNCTION IfcLeapYear
(Year : IfcYearNumber)
: 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;
|
Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:21:14-04:00