gettimeslot

/* Formatted on 2013/06/10 17:42 (Formatter Plus v4.8.8) */
CREATE OR REPLACE FUNCTION vabb.gettimeslot (vtime IN VARCHAR2)
   RETURN VARCHAR2
IS
   RESULT   VARCHAR2 (10);
BEGIN
   IF (vtime >= '0000' AND vtime <= '0100')
   THEN
      RESULT := '0531-0630';
   ELSIF (vtime >= '0101' AND vtime <= '0200')
   THEN
      RESULT := '0631-0730';
   ELSIF (vtime >= '0201' AND vtime <= '0300')
   THEN
      RESULT := '0731-0830';
   ELSIF (vtime >= '0301' AND vtime <= '0400')
   THEN
      RESULT := '0831-0930';
   ELSIF (vtime >= '0401' AND vtime <= '0500')
   THEN
      RESULT := '0931-1030';
   ELSIF (vtime >= '0501' AND vtime <= '0600')
   THEN
      RESULT := '1031-1130';
   ELSIF (vtime >= '0601' AND vtime <= '0700')
   THEN
      RESULT := '1131-1230';
   ELSIF (vtime >= '0701' AND vtime <= '0800')
   THEN
      RESULT := '1231-1330';
   ELSIF (vtime >= '0801' AND vtime <= '0900')
   THEN
      RESULT := '1331-1430';
   ELSIF (vtime >= '0901' AND vtime <= '1000')
   THEN
      RESULT := '1431-1530';
   ELSIF (vtime >= '1001' AND vtime <= '1100')
   THEN
      RESULT := '1531-1630';
   ELSIF (vtime >= '1101' AND vtime <= '1200')
   THEN
      RESULT := '1631-1730';
   ELSIF (vtime >= '1201' AND vtime <= '1300')
   THEN
      RESULT := '1731-1830';
   ELSIF (vtime >= '1301' AND vtime <= '1400')
   THEN
      RESULT := '1831-1930';
   ELSIF (vtime >= '1401' AND vtime <= '1500')
   THEN
      RESULT := '1931-2030';
   ELSIF (vtime >= '1501' AND vtime <= '1600')
   THEN
      RESULT := '2031-2130';
   ELSIF (vtime >= '1601' AND vtime <= '1700')
   THEN
      RESULT := '2131-2230';
   ELSIF (vtime >= '1701' AND vtime <= '1800')
   THEN
      RESULT := '2231-2330';
   ELSIF (vtime >= '1801' AND vtime <= '1900')
   THEN
      RESULT := '2331-0030';
   ELSIF (vtime >= '1901' AND vtime <= '2000')
   THEN
      RESULT := '0031-0130';
   ELSIF (vtime >= '2001' AND vtime <= '2100')
   THEN
      RESULT := '0131-0230';
   ELSIF (vtime >= '2101' AND vtime <= '2200')
   THEN
      RESULT := '0231-0330';
   ELSIF (vtime >= '2201' AND vtime <= '2300')
   THEN
      RESULT := '0331-0430';
   ELSE
      RESULT := '0431-0530';
   END IF;

   RETURN (RESULT);
END gettimeslot;
/