pears.numtotime [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

====== pears.numtotime ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
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
}
</code>