\n\tfunction lcw_get_money(money in number) return varchar2 is
\n\t c_money VARCHAR2(12);
\n\t b_string VARCHAR2(80);
\n\t m_string VARCHAR2(60) := '\u5206\u89d2\u5706\u62fe\u4f70\u4edf\u4e07\u62fe\u4f70\u4edf\u4ebf';
\n\t n_string VARCHAR2(40) := '\u58f9\u8d30\u53c1\u8086\u4f0d\u9646\u67d2\u634c\u7396';
\n\t n CHAR;
\n\t len NUMBER(10);
\n\t i NUMBER(10);
\n\t tmp NUMBER(12);
\n\t is_zj BOOLEAN;
\n\t z_count NUMBER(10);
\n\t l_money NUMBER;
\n\t l_money1 NUMBER;
\n\t l_sign VARCHAR2(10);
\n\t BEGIN
\n\t l_money1 := to_number(money);
\n\t l_money := abs(money);
\n\t IF l_money1 < 0 THEN
\n\t l_sign := '\u8d1f';
\n\t ELSE
\n\t l_sign := '';
\n\t END IF;
\n\t tmp := round(l_money, 2) * 100;
\n\t c_money := rtrim(ltrim(to_char(tmp, '999999999999')));
\n\t len := length(c_money);
\n\t is_zj := TRUE;
\n\t z_count := 0;
\n\t i := 0;
\n\t WHILE i < len LOOP
\n\t i := i + 1;
\n\t n := substr(c_money, i, 1);
\n\t IF n = '0' THEN
\n\t IF len – i = 6 OR len – i = 2 OR len = i THEN
\n\t IF is_zj THEN
\n\t b_string := substr(b_string, 1, length(b_string) – 1);
\n\t is_zj := FALSE;
\n\t END IF;
\n\t IF len – i = 6 THEN
\n\t b_string := b_string || '\u4e07';
\n\t END IF;
\n\t IF len – i = 2 THEN
\n\t b_string := b_string || '\u5706';
\n\t END IF;
\n\t IF len = i THEN
\n\t b_string := b_string || '\u6574';
\n\t END IF;
\n\t z_count := 0;
\n\t ELSE
\n\t IF z_count = 0 THEN
\n\t b_string := b_string || '\u96f6';
\n\t is_zj := TRUE;
\n\t END IF;
\n\t z_count := z_count + 1;
\n\t END IF;
\n\t ELSE
\n\t b_string := b_string || substr(n_string, to_number(n), 1) ||
\n\t substr(m_string, len – i + 1, 1);
\n\t z_count := 0;
\n\t is_zj := FALSE;
\n\t END IF;
\n\t END LOOP;
\n\t b_string := l_sign || b_string;
\n\t RETURN b_string;
\n\t EXCEPTION
\n\t WHEN OTHERS THEN
\n\t RETURN(SQLERRM);
\n\t END;<\/p>\n","protected":false},"excerpt":{"rendered":"
function lcw_get_money(money in number) return varchar2 … \u7ee7\u7eed\u9605\u8bfbPLSQL\u5b58\u50a8\u8fc7\u7a0b\u91d1\u989d\u5927\u5199\u7684\u8f6c\u6362<\/span>