можно рехнуться.

CREATE PROCEDURE Modulus(Dividend INTEGER, Divisor INTEGER)
RETURNS (Result INTEGER)
AS
BEGIN
 IF(Dividend = 0) THEN Result = 0;
 ELSE
   Result = Dividend-(CAST((Dividend / Divisor)-0.5 AS INTEGER)*Divisor);
SUSPEND;
END

--
Булычев Алексей
http://www.stella-npf.ru

Ответить