pears.numtotime

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."numtotime" IS 
{CREATE FUNCTION pears.numtotime(IN thenum DECIMAL(5,2))
RETURNS TIME
BEGIN
  DECLARE rv TIME;
  DECLARE ss CHAR(5);
  DECLARE ii SMALLINT;
  DECLARE num1 DECIMAL(5,2);
  DECLARE num2 DECIMAL(5,2);
  SET num1=FLOOR(thenum);
  SET num2=thenum-num1;
  IF thenum >= 24 OR thenum < 0 THEN
    SET num1=23;
    SET num2=.59
  END IF;
  IF num2 > .59 THEN
    SET num2=.59
  END IF;
  SET thenum=num1+num2;
  SET ss=thenum;
  SET ii=locate(ss,'.');
  IF ii = 0 THEN
    SET ss=ss+':00'
  ELSE
    IF ii = 1 THEN
      SET ss='0' || ss;
      SET ii=2
    END IF;
    SET ss="left"(ss,ii-1)+':'+substr(ss,ii+1,2)
  END IF;
  SET rv=ss;
  RETURN(rv)
END
}