分享
 
 
 

一个有用的东西:如何将数字转换为大写英文金额

王朝other·作者佚名  2008-05-31
窄屏简体版  字體: |||超大  

create or replace function tcos_spell_number( p_number in number )

return varchar2

-- CopyRight Toshiba Shenzhen Han Fangquan 2002.04.10

as

type myArray is table of varchar2(255);

l_str myArray := myArray( '',

' Thousand ', ' Million ',

' Billion ', ' Trillion ',

' Quadrillion ', ' Quintillion ',

' Sextillion ', ' Septillion ',

' Octillion ', ' Nonillion ',

' Decillion ', ' Undecillion ',

' Duodecillion ' );

l_num varchar2(50) default trunc( p_number );

h_number number;

l_return varchar2(4000);

begin

h_number := round(p_number*100)/100;

for i in 1 .. l_str.count

loop

exit when l_num is null;

if ( substr(l_num, length(l_num)-2, 3) 0 )

then

l_return := to_char(

to_date(

substr(l_num, length(l_num)-2, 3),

'J' ),

'jsp' ) l_str(i) l_return;

end if;

l_num := substr( l_num, 1, length(l_num)-3 );

end loop;

-- add Dollars string. Han Fangquan

-- Han Fangquan modified begin

if l_return is null then l_return := 'Zero' ;

end if;

-- p_number 1 then add Dollars else Add Dollar.

if trunc( h_number )1

then

l_return := l_return ' Dollars ';

else

l_return := l_return ' Dollar ';

end if;

if to_char( h_number ) like '%.%'

then

l_num := substr(h_number,instr(h_number,'.')+1);

if length(l_num)=1

then

l_num := l_num '0';

end if;

if l_num 0

then

if l_num 1

then

l_return := l_return 'And 'l_num' Cents ';

else l_return := l_return 'And 'l_num' Cent ';

end if;

end if;

end if;

-- end (Han Fangquan modified )

/*

-- beginning of section added to include decimal places:

if to_char( h_number ) like '%.%'

then

l_num := substr( h_number, instr( h_number, '.' )+1 );

if l_num 0

then

l_return := l_return ' point';

for i in 1 .. length (l_num)

loop

exit when l_num is null;

if substr( l_num, 1, 1 ) = '0'

then

l_return := l_return ' zero';

else

l_return := l_return

' '

to_char(

to_date(

substr( l_num, 1, 1),

'j' ),

'jsp' );

end if;

l_num := substr( l_num, 2 );

end loop;

end if;

end if;

*/

-- end of section added to include decimal places

-- Han if the length fo l_trun less than 100 ,i will add **

-- if length(l_return)

-- then

-- l_return := l_return

-- substr('****************************************************************************************************',

-- length(l_return)-1) ;

-- end if;

l_return := l_return'*************';

return l_return;

end tcos_spell_number;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有