// DROP FUNCTION sys.GenerateDate;
CREATE FUNCTION sys.GenerateDate
(
  IN @dw SMALLINT,
  IN @dm SMALLINT,
  IN @dy SMALLINT
)
RETURNS DATE
BEGIN
  DECLARE d DATE;
  DECLARE m SMALLINT;
  DECLARE y SMALLINT;
  SET y =  2000 ;
  SET d = DAYS( YMD(y, 1 , 1 ), @dy -  1 ) ;
  SET m = MONTH(d) ;
  IF YMD(y, m, @dm) = d THEN
     WHILE y <=  2024  AND DOW(d) <> @dw LOOP
        IF m =  2  AND @dm =  29  THEN
           SET y = y +  4 ;
        ELSE
           SET y = y +  1 ;
        END IF ;
        SET d = YMD( y, m, @dm ) ;
     END LOOP
  ELSE
     SET y =  2025 ;
  END IF ;
  IF y >  2024  THEN
     SET d = DATE('1900-01-01');
  END IF;
  RETURN d;
END;
GRANT EXECUTE ON SYS.GenerateDate TO Public;

        CALL dba.ro (ro, x,y, Rx, Ry);
        IF ro <=  0  THEN     // дырки между отрезками нет
            CALL dba.unif(Rx, Ry, Rx, Ry, x, y);       // расширили запрет справа
        ELSE                // дырка между отрезками есть
            SET Rx  = x;    // скопировать запрет
            SET Ry  = y;    // старый запрет забыли
        END IF;
        CALL dba.lft(Xx, Xy, Gx, Gy, Rx, Ry); // справа отрезали разрешение новым запретом
        CALL dba.put(id, tskNo, Xx, Xy);      // вывели кусок слева
        CALL dba.rght(Gx, Gy, Gx, Gy, Rx, Ry);// сузить правое разрешение слева