IF ((((year MOD  4) = 0) AND ((year MOD  100) <> 0)) OR ((year MOD 400) = 0)) THEN
    RETURN  (TRUE);
  ELSE
    RETURN (FALSE);
  END_IF;