FUNCTION Time(p_sec IN NUMBER) RETURN VARCHAR2
IS
RESULT_VC VARCHAR2(50);
DAYS NUMBER default 0;
HOURS NUMBER default 0;
MINETS NUMBER default 0;
SECONDS NUMBER default 0;
V_MOD NUMBER default 0; --OSTATOK
BEGIN
DAYS := FLOOR(p_sec/86400);
V_MOD := MOD(P_SEC,86400);
HOURS := FLOOR(V_MOD/3600);
V_MOD := MOD(V_MOD,3600);
MINETS := FLOOR(V_MOD/60);
V_MOD := MOD(V_MOD,60);
SECONDS := V_MOD;
RESULT_VC := DAYS||'д '||HOURS||'ч '||MINETS||'мин '||SECONDS||' сек';
RETURN RESULT_VC;
END;