显示距离当前时间的跨度

为石台等地区用户提供了全套网页设计制作服务，及石台网站建设行业解决方案。主营业务为网站设计、成都网站制作、石台网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！

-- 计算时间跨度：返回值为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; 

当前题目：Oracle计算时间跨度的函数
当前网址：http://azwzsj.com/article/josodh.html