金額小寫轉大寫的函式(連續使用很久了)

2021-09-01 19:41:57 字數 3827 閱讀 9943

create or replace function f_upper_money(p_num in number default null)

return nvarchar2 is

/*ver:1.0 created by xsb on 2003-8-18 for:

將金額數字(單位元)轉換為大寫(採用從低至高演算法)

數字整數部分不得超過16位,可以是負數。

ver:1.1 modified by xsb on 2003-8-20 for:個位數處理也放在for迴圈中。

ver:1.2 modified by xsb on 2003-8-22 for:分後不帶整字。

ver:1.3 modified by xsb on 2003-8-28 for:完善測試用例。

測試用例:

set head off

set feed off

select '無引數時='||f_upper_money() from dual;

select 'null='||f_upper_money(null) from dual;

select '0='||f_upper_money(0) from dual;

select '0.01='||f_upper_money(0.01) from dual;

select '0.126='||f_upper_money(0.126) from dual;

select '01.234='||f_upper_money(01.234) from dual;

select '10='||f_upper_money(10) from dual;

select '100.1='||f_upper_money(100.1) from dual;

select '100.01='||f_upper_money(100.01) from dual;

select '10000='||f_upper_money(10000) from dual;

select '10012.12='||f_upper_money(10012.12) from dual;

select '20000020.01='||f_upper_money(20000020.01) from dual;

select '3040506708.901='||f_upper_money(3040506708.901) from dual;

select '40005006078.001='||f_upper_money(40005006078.001) from dual;

select '-123456789.98='||f_upper_money(-123456789.98) from dual;

select '123456789123456789.89='||f_upper_money(123456789123456789.89) from dual;

*/ result nvarchar2(100);--返回字串

num_round nvarchar2(100) :=to_char(abs(round(p_num,2)));--轉換數字為小數點後2位的字元(正數)

num_left nvarchar2(100);--小數點左邊的數字

num_right nvarchar2(2);--小數點右邊的數字

str1 nchar(10) :='零壹貳參肆伍陸柒捌玖';--數字大寫

str2 nchar(16) :='元拾佰仟萬拾佰仟億拾佰仟萬拾佰仟';--數字位數(從低至高)

num_pre number(1):=1;--前一位上的數字

num_current number(1);--當前位上的數字

num_count number:=0;--當前數字位數

begin

if p_num is null then return null;end if;--轉換數字為null時返回null

select to_char(

nvl(substr(to_char(num_round),1,

decode(instr(to_char(num_round),'.'),0,

length(num_round),instr(to_char(num_round),'.')-1)),

0)) into num_left from dual;--取得小數點左邊的數字

select substr(to_char(num_round),

decode(instr(to_char(num_round),'.'),0,

length(num_round)+1,instr(to_char(num_round),'.')+1),2)

into num_right from dual;--取得小數點右邊的數字

if length(num_left)>16 then return '**********'; end if;--數字整數部分超過16位時

--採用從低至高的演算法,先處理小數點右邊的數字

if length(num_right)=2 then

if to_number(substr(num_right,1,1))=0 then

result:='零'||substr(str1,to_number(substr(num_right,2,1))+1,1)||'分';

else

result:=substr(str1,to_number(substr(num_right,1,1))+1,1)||'角'||

substr(str1,to_number(substr(num_right,2,1))+1,1)||'分';

end if;

elsif length(num_right)=1 then

result:=substr(str1,to_number(substr(num_right,1,1))+1,1)||'角整';

else

result :='整';

end if;

--再處理小數點左邊的數字

for i in reverse 1..length(num_left) loop --(從低至高)

num_count:=num_count+1;--當前數字位數

num_current:=to_number(substr(num_left,i,1));--當前位上的數字

if num_current>0 then --當前位上數字不為0按正常處理

result:=substr(str1,num_current+1,1)||substr(str2,num_count,1)||result;

else --當前位上數字為0時

if mod(num_count-1,4)=0 then --當前位是元、萬或億時

result:=substr(str2,num_count,1)||result;

num_pre:=0;--元、萬,億前不准加零

end if;

if num_pre>0 or length(num_left)=1 then --上一位數字不為0或只有個位時

result:=substr(str1,num_current+1,1)||result;

end if;

end if;

num_pre:=num_current;

end loop;

if p_num<0 then --轉換數字是負數時

result:='負'||result;

end if;

return result;

exception

when others then

end ;

金額小寫轉大寫的函式(連續使用很久了)

create or replace function f upper money p num in number default null return nvarchar2 is ver 1.0 created by xsb on 2003 8 18 for 將金額數字 單位元 轉換為大寫 採用從低...

金額小寫轉大寫

create procedure dbo trannumbertobigfordecrypt n lowermoney numeric 15,2 v transtype int,ret varchar 200 output with encryption as descript 解密exec sp ...

金額小寫轉大寫

create procedure dbo trannumbertobigfordecrypt n lowermoney numeric 15,2 v transtype int,ret varchar 200 output with encryption as descript 解密exec sp ...