Oracle计算时间跨度的函数

显示距离当前时间的跨度

-- 计算时间跨度：返回值为X天y时z分

declare

ln_day_count number(10);

ln_hour_count number(10);

ln_min_count number(10);

ls_time_sent_last varchar2(20) := '2015-06-07 08:40:20';

ls_timespan varchar2(100) := '';

begin

-- 计算天数

select floor(sysdate - To_date(ls_time_sent_last, 'yyyy-mm-dd hh34-mi-ss')) into ln_day_count FROM dual;

if ln_day_count != 0 then

ls_timespan := to_char(ln_day_count) || '天';

dbms_output.put_line(ls_timespan);

end if;

-- 计算小时数

select mod(floor(((sysdate - To_date(ls_time_sent_last, 'yyyy-mm-dd hh34-mi-ss'))) * 24),24) into ln_hour_count FROM dual;

if ln_hour_count != 0 then

ls_timespan := ls_timespan || to_char(ln_hour_count) || '时';

dbms_output.put_line(ls_timespan);

end if;

-- 计算分钟数

select mod(mod(floor(((sysdate - To_date(ls_time_sent_last, 'yyyy-mm-dd hh34-mi-ss'))) * 24 * 60),24*60),60) into ln_min_count FROM dual;

if ln_min_count != 0 then

ls_timespan := ls_timespan || to_char(ln_min_count) || '分';

dbms_output.put_line(ls_timespan);

end if;

end;