CREATE OR REPLACE FUNCTION chi2num(chivalue IN VARCHAR2) RETURN NUMBER IS
創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)、峨眉山網(wǎng)絡(luò)推廣、微信小程序定制開發(fā)、峨眉山網(wǎng)絡(luò)營(yíng)銷、峨眉山企業(yè)策劃、峨眉山品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等,從售前售中售后,我們都將竭誠(chéng)為您服務(wù),您的肯定,是我們大的嘉獎(jiǎng);創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供峨眉山建站搭建服務(wù),24小時(shí)服務(wù)熱線:13518219792,官方網(wǎng)址:muchs.cn TYPE MAP IS TABLE OF BINARY_INTEGER INDEX BY VARCHAR2(10);
ling_jiu_map MAP;
shibaiqian_map MAP;
wanyizhao_map MAP;
--臨時(shí)變量
i INT := 0; --'臨時(shí)變量
k INT := 0; --臨時(shí)變量
x INT := 0; --臨時(shí)變量
str VARCHAR2(100) := ''; --臨時(shí)變量
tmp INT := 0; --臨時(shí)變量
tmp2 INT := 0; --臨時(shí)變量
integer_part VARCHAR2(100) := ''; --數(shù)字形式整數(shù)部分
float_part VARCHAR2(100) := ''; --數(shù)字形式小數(shù)部分
returnvalue NUMBER := 0; --返回值
BEGIN
--初始化數(shù)組
ling_jiu_map('零') := 0;
ling_jiu_map('一') := 1;
ling_jiu_map('二') := 2;
ling_jiu_map('三') := 3;
ling_jiu_map('四') := 4;
ling_jiu_map('五') := 5;
ling_jiu_map('六') := 6;
ling_jiu_map('七') := 7;
ling_jiu_map('八') := 8;
ling_jiu_map('九') := 9;
shibaiqian_map('') := 0;
shibaiqian_map('十') := 1;
shibaiqian_map('百') := 2;
shibaiqian_map('千') := 3;
wanyizhao_map('') := 0;
wanyizhao_map('萬') := 1;
wanyizhao_map('億') := 2;
wanyizhao_map('兆') := 3;
str := REGEXP_REPLACE(chivalue, '^十', '一十');
str := REGEXP_REPLACE(str, '零十', '零一十');
--將數(shù)字拆分為整數(shù)與浮點(diǎn)數(shù)兩個(gè)數(shù)字?jǐn)?shù)組
i := INSTR(str, '點(diǎn)', 1);
IF i = 0 THEN
integer_part := SUBSTR(str, 1);
ELSE
integer_part := SUBSTR(str, 1, i - 1);
float_part := SUBSTR(str, i + 1);
END IF;
--整型部分
x := LENGTH(integer_part);
str := '';
tmp := 0;
tmp2 := 0;
FOR k IN 1 .. x LOOP
str := SUBSTR(integer_part, k, 1);
IF str IN ('萬', '億', '兆') THEN
--當(dāng)碰到萬億兆時(shí)
tmp := tmp + tmp2;
returnvalue := returnvalue + tmp * POWER(10000, wanyizhao_map(str));
tmp := 0;
tmp2 := 0;
ELSIF str IN ('十', '百', '千') THEN
--當(dāng)碰到十百千時(shí)
tmp := tmp + tmp2 * POWER(10, shibaiqian_map(str));
tmp2 := 0;
ELSE
--當(dāng)碰到數(shù)字時(shí)
tmp2 := ling_jiu_map(str);
END IF;
END LOOP;
--最后將沒有小于萬位數(shù)加到整數(shù)中去
tmp := tmp + tmp2;
returnvalue := returnvalue + tmp;
IF float_part IS NOT NULL THEN
--計(jì)算小數(shù)部分
k := 0;
tmp := '';
FOR k IN 1 .. LENGTH(float_part) LOOP
tmp := tmp || ling_jiu_map(SUBSTR(float_part, k, 1));
END LOOP;
returnvalue := returnvalue || '.' || tmp;
END IF;
RETURN returnvalue;
END;
另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)cdcxhl.cn,海內(nèi)外云服務(wù)器15元起步,三天無理由+7*72小時(shí)售后在線,公司持有idc許可證,提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國(guó)服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案,具有“安全穩(wěn)定、簡(jiǎn)單易用、服務(wù)可用性高、性價(jià)比高”等特點(diǎn)與優(yōu)勢(shì),專為企業(yè)上云打造定制,能夠滿足用戶豐富、多元化的應(yīng)用場(chǎng)景需求。
網(wǎng)頁標(biāo)題:oracle中文數(shù)字轉(zhuǎn)阿拉伯?dāng)?shù)字-創(chuàng)新互聯(lián)
瀏覽地址:http://muchs.cn/article20/deigjo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站建設(shè)、自適應(yīng)網(wǎng)站、定制網(wǎng)站、商城網(wǎng)站、App設(shè)計(jì)、網(wǎng)站導(dǎo)航
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容