显示距离当前时间的跨度

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