之前在整项目时,用ec:table展示数据时在读取小于1的数据时,总是少掉前面的0,0.123变成 .123的问题,后来上网查了一些资料,并自己处理写了一个函数,解决了小于1的小数少0的问题,该函数也可以用来做保留小数位的操作(四舍五入),期望对各位大虾有帮助,下面献上我的代码
少了些注释,望各位大神多谅解
--用于处理小于1的值转varchar时前面的0少掉的变成点几的函数
--val 要处理的值
--digit 保留的小数位(四舍五入)
create or replace function to_decimalstring(val in number,
digit in integer)
return varchar2 is
return_str varchar2(32767);
express varchar2(100) := 'fm999999999990.0';
v_num integer;
v_n varchar2(10000);
v_temp number;
begin
if digit < 0 then
express := 'fm99999999990';
v_n := 1;
for v_num in 1 .. -digit loop
v_n := v_n || '0';
end loop;
v_temp := val;
v_temp := trunc(v_temp/to_number(v_n))*to_number(v_n);
return_str := to_char(v_temp, express);
return return_str;
end if;
if instr(val,'.') <= 0 then
return_str := to_char(val, 'fm999999999990');
return return_str;
end if;
if digit = 0 then
express := 'fm999999999990';
return_str := to_char(round(val, digit));
return return_str;
end if;
for v_num in 2 .. digit loop
express := express || '9';
end loop;
return_str := to_char(val, express);
return return_str;
end to_decimalstring;
少了些注释,望各位大神多谅解