刚在CNOUG看到有人提问如何用PL/SQL 实现小数转分数的问题，下面这段代码是我的实现，主要思路是将输入的整数及小数都分别取出，然后将小数写成以10的n次方的分数，再求其最大公约数，得到简化的分数，最后将整数及分数合并。代码里有一些处理细节，如负数处理，纯整数处理，纯小数处理等等。
create or replace function dftof(iStr number) return varchar2 as--小数转分数-- (decimal fraction) to fraction--设计人：叶正盛v_Str varchar(50);result varchar(50);v_fh varchar(1); --负数符号v_zs varchar2(20); --整数v_xs varchar2(20); --小数v_pos int; --小数点位置v_fm integer; --分母v_fz integer; --分子v_zdgys integer; --最大公约数--求最大公约数function getZDGYS(iNum1 integer, iNum2 integer) return integer asv_ys integer; --余数v_num1 integer;v_num2 integer;beginv_num1 := iNum1;v_num2 := iNum2;v_ys := mod(v_num1, v_num2);--辗转相除法while v_ys <> 0 loopv_num1 := v_num2;v_num2 := v_ys;v_ys := mod(v_num1, v_num2);end loop;return v_num2;end;beginv_Str := trim(iStr);v_pos := instr(v_Str, '.'); --计算小数点位置if v_pos = 0 thenresult := v_Str; --纯整数elseif substr(v_Str, 1, 1) = '-' thenv_zs := substr(v_Str, 2, v_pos - 2); --整数elsev_zs := substr(v_Str, 1, v_pos - 1); --整数end if;v_xs := substr(v_Str, v_pos + 1); --小数if to_number(nvl(v_zs, '0')) = 0 thenif substr(v_zs, 1, 1) = '-' thenv_zs := '-'; --如果整数为-0则显示负号elsev_zs := ''; --如果整数为0则不显示整数end if;elsev_zs := v_zs || '+'; --整数部份显示样式end if;v_fz := to_number(v_xs); --分子v_fm := power(10, length(v_xs)); --分母v_zdgys := getZDGYS(v_fm, v_fz); --求最大公约数result := (v_fz / v_zdgys) || '/' || (v_fm / v_zdgys);if substr(v_Str, 1, 1) = '-' thenresult := '-(' || v_zs || result || ')';elseresult := v_zs || result;end if;end if;return result;end;
测试结果
Connected to Oracle9i Enterprise Edition Release 9.2.0.7.0 Connected as yzsSQL> select dftof(0.4) from dual;DFTOF(0.4)--------------------------------------------------------------------------------2/5SQL> select dftof(3.4) from dual;DFTOF(3.4)--------------------------------------------------------------------------------3+2/5SQL> select dftof(-92.25) from dual;DFTOF(-92.25)---------------------------------------------------------------------------------(92+1/4)SQL> select dftof(-0.375) from dual;DFTOF(-0.375)---------------------------------------------------------------------------------(3/8)SQL> select dftof(-.375) from dual;DFTOF(-.375)---------------------------------------------------------------------------------(3/8)
