oracle 两个日期相减，返回天-时-分-秒的函数

CREATE OR REPLACE FUNCTION F_DAYS2STR(P_DAYS IN NUMBER DEFAULT 0) RETURN VARCHAR2 IS --For: 将天数转换成天时分秒格式
DAYS NUMBER := NVL( P_DAYS, 0 );
VD NUMBER;--天
VH NUMBER;--小时
VM NUMBER;--分
VS NUMBER;--秒
RESULT VARCHAR2(100);--返回值
BEGIN VD := TRUNC( DAYS );
VH := TRUNC(( DAYS - VD )* 24 );
VM := TRUNC(( DAYS - VD - VH / 24 )* 24 * 60 );
VS := TRUNC(( DAYS - VD - VH / 24 - VM / 24 / 60 )* 24 * 60 * 60 );
SELECT DECODE( VD, 0, '', VD || '天' )|| DECODE( VH, 0, '', VH || '小时' )|| DECODE( VM, 0, '', VM || '分' )|| DECODE( VS, 0, '', VS || '秒' ) INTO RESULT FROM DUAL;
RETURN(RESULT);
END;

ps:SELECT F_DAYS2STR(SYSDATE-TO_DATE('2017-08-22 15:30','yyyy-MM-dd hh24:mi')) FROM dual。