How to requce query.

Question

I want to increment time +1 , I have create one function it's working but is there
any other way to reduce below code with same output. if possible i want only single
query to increment time plush 1 without use to_date dunction.
DECLARE
V_TIME VARCHAR2(5);
V_TIME_PRINT VARCHAR2(5);
BEGIN
-- FIRST EXAMPLE
V_TIME := '17:18';
--- Is there any another way to reduce below quey.
select decode(substr(V_TIME, -2), '59',
decode(substr(V_TIME,0, 2) ,'23','00',
lpad(substr(V_TIME,0, 2) + 1,2,'0') ) || ':' || '00',
lpad(substr(V_TIME,0, 2) ,2,'0') || ':' ||
lpad(substr(V_TIME, -2) + 1,2,'0')) INTO V_TIME_PRINT from dual;
DBMS_OUTPUT.PUT_LINE(V_TIME || ' IN 1 MINUTE INCREMENTAL TIME IS : ' || V_TIME_PRINT);
-- SECOND EXAMPLE
V_TIME := '23:59';
select decode(substr(V_TIME, -2), '59',
decode(substr(V_TIME,0, 2) ,'23','00',
lpad(substr(V_TIME,0, 2) + 1,2,'0') ) || ':' || '00',
lpad(substr(V_TIME,0, 2) ,2,'0') || ':' ||
lpad(substr(V_TIME, -2) + 1,2,'0')) INTO V_TIME_PRINT from dual;
DBMS_OUTPUT.PUT_LINE(V_TIME || ' IN 1 MINUTE INCREMENTAL TIME IS : ' || V_TIME_PRINT);
-- SECOND EXAMPLE
V_TIME := '17:59';
select decode(substr(V_TIME, -2), '59',
decode(substr(V_TIME,0, 2) ,'23','00',
lpad(substr(V_TIME,0, 2) + 1,2,'0') ) || ':' || '00',
lpad(substr(V_TIME,0, 2) ,2,'0') || ':' ||
lpad(substr(V_TIME, -2) + 1,2,'0')) INTO V_TIME_PRINT from dual;
DBMS_OUTPUT.PUT_LINE(V_TIME || ' IN 1 MINUTE INCREMENTAL TIME IS : ' || V_TIME_PRINT);
END;

Answer 1

Hi,
Why you are not using DATE Type?
Anyways here is an example by converting it into date.
SQL> ed
Wrote file afiedt.buf
  1  DECLARE
  2  V_TIME VARCHAR2(5);
  3  V_TIME_PRINT date;
  4  BEGIN
  5  -- FIRST EXAMPLE
  6  V_TIME := '17:18';
  7  SELECT TO_DATE(V_TIME,'HH24:MI')+1/(24*60) into V_TIME_PRINT FROM DUAL;
  8  DBMS_OUTPUT.PUT_LINE(V_TIME || ' IN 1 MINUTE INCREMENTAL TIME IS : ' || TO_
CHAR(V_TIME_PRINT,'HH24:MI'));
  9* end;
SQL> /
17:18 IN 1 MINUTE INCREMENTAL TIME IS : 17:19
PL/SQL procedure successfully completed.
SQL> ed
Wrote file afiedt.buf
  1  DECLARE
  2  V_TIME VARCHAR2(5);
  3  V_TIME_PRINT date;
  4  BEGIN
  5  -- FIRST EXAMPLE
  6  V_TIME := '23:59';
  7  SELECT TO_DATE(V_TIME,'HH24:MI')+1/(24*60) into V_TIME_PRINT FROM DUAL;
  8  DBMS_OUTPUT.PUT_LINE(V_TIME || ' IN 1 MINUTE INCREMENTAL TIME IS : ' || TO_
CHAR(V_TIME_PRINT,'HH24:MI'));
  9* end;
SQL> /
23:59 IN 1 MINUTE INCREMENTAL TIME IS : 00:00
PL/SQL procedure successfully completed.
SQL> ed
Wrote file afiedt.buf
  1  DECLARE
  2  V_TIME VARCHAR2(5);
  3  V_TIME_PRINT date;
  4  BEGIN
  5  -- FIRST EXAMPLE
  6  V_TIME := '17:59';
  7  SELECT TO_DATE(V_TIME,'HH24:MI')+1/(24*60) into V_TIME_PRINT FROM DUAL;
  8  DBMS_OUTPUT.PUT_LINE(V_TIME || ' IN 1 MINUTE INCREMENTAL TIME IS : ' || TO_
CHAR(V_TIME_PRINT,'HH24:MI'));
  9* end;
SQL> /
17:59 IN 1 MINUTE INCREMENTAL TIME IS : 18:00
PL/SQL procedure successfully completed.
SQL>Regards,
Added all your input.
Edited by: Avinash Tripathi on May 14, 2010 12:45 PM