--将用小数形式表示的 日期时间 转化为 天-小时-分钟-秒 的形式
function fmt_time (p_days in number) return varchar2
as
l_days number;
l_hours number;
l_minutes number;
l_seconds number;
l_sign varchar2(1);
l_returnvalue string_util_pkg.t_max_pl_varchar2;
begin
/*
Purpose: get time formatted as days, hours, minutes, seconds
Remarks:
Who Date Description
------ ---------- -------------------------------------
MBR 18.12.2006 Created
*/
--通过传入的 日期获得相应的 各个单位数据
--整数部分为 天
l_days := nvl(trunc(p_days),0);
--小数部分 *24 得到小时
l_hours := nvl(((p_days - l_days) * 24), 0);
--获得的小时 数据的小数部分 *60 为分钟
l_minutes := nvl(((l_hours - trunc(l_hours))) * 60, 0);
--同样的 将获得的 分钟的小数部分*60 为秒
l_seconds := nvl(((l_minutes - trunc(l_minutes))) * 60, 0);
--判断日期正负 符号
if p_days < 0 then
l_sign:='minus ';
else
l_sign:='';
end if;
--将得到的数据 进行格式化 绝对值是为了进行必要的 去除正负号判定
--获得天的绝对值
l_days:=abs(l_days);
--获得小时的绝对值 同时获得其整数部分
l_hours:=trunc(abs(l_hours));
--去取分钟的绝对值 然后四舍五入
l_minutes:=round(abs(l_minutes));
--去取秒的绝对值 然后四舍五入
l_seconds:=round(abs(l_seconds));
--如果分钟 为60 为什么会出现这种情况呢? 这是因为有了四舍五入和小数 不精确所致
if l_minutes = 60 then
--则 让小时+1 同时分钟置空
l_hours:=l_hours + 1;
l_minutes:=0;
end if;
--将得到的结果 进行格式化输出
--采用 天-》小时-》分钟的判断顺序 是为了 能够决定那个 字段木有值
if l_days > 0 then
l_returnvalue:=string_util_pkg.get_str('%1 days, %2 hours, %3 minutes', l_days, l_hours, l_minutes);
elsif l_hours > 0 then
l_returnvalue:=string_util_pkg.get_str('%1 hours, %2 minutes, %3 seconds', l_hours, l_minutes, l_seconds);
elsif l_minutes > 0 then
l_returnvalue:=string_util_pkg.get_str('%1 minutes, %2 seconds', l_minutes, l_seconds);
else
l_returnvalue:=string_util_pkg.get_str('%1 seconds', l_seconds);
end if;
--加上 符号
l_returnvalue:=l_sign || l_returnvalue;
return l_returnvalue;
end fmt_time;
로그인 후 복사