如何把数字(currency)转化成大写的汉字串

2003-12-11 09:14:42 157 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Oracle数字转汉字功能详解与应用实践数据库开发中，数字转汉字是财务系统、合同管理等场景的常见需求。Oracle数据库通过TO_CHAR函数原生支持这一功能，其核心原理是利用格式模型和NLS参数设置实现数字与汉字的映射转换。该技术能显著提升数据处理效率，实测比应用层转换快20倍以上。典型应用包括财务凭证金额大写输出、合同条款编号转换以及报表序数词展示等场景。针对性能优化，可采用函数索引、物化视图等技术方案，同时需注意中文字符集等环境配置要求。阅读详情

如何把数字(currency)转化成大写的汉字串.
数字最大长度为11位(11.2)
比如123,转化成壹佰贰拾叁元.

有这方面的,请帮忙.我先谢了.

...全文

Oracle数字转汉字功能实现与优化数据库开发中，数字与汉字转换是常见的格式化需求，尤其在财务系统、合同管理等场景。Oracle数据库提供了多种实现方式，包括使用TO_CHAR函数配合NLS参数、自定义PL/SQL函数以及XML函数转换。这些方法各有优劣，TO_CHAR函数简单易用但受NLS参数影响较大，PL/SQL自定义函数灵活性高且性能可控，XML函数则适合现代Oracle版本。在金融行业实践中，通过PLSQL_OPTIMIZE_LEVEL优化和批量处理技术可显著提升百万级数据转换效率。同时，针对超大数字、多语言环境等特殊需求，需要采用科阅读详情

hong99

PowerBuilder 1,111 成员 66,454 内容

+ 关注 + 加入社区

切换为时间正序

banalman 2003-12-18

打赏
举报

转载：
int i,li_lendec,li_lenint
int li_amout_flag
string ls_numstr,a,b,c,d,bbak
string ls_dxint[13],ls_dxdec[2],ls_sz[13]
string ls_dxstr="万仟佰拾亿仟佰拾万仟佰拾元"
string ls_szstr="零壹贰叁肆伍陆柒捌玖"
string return_value

if ad_amout < 0.00 then
ad_amout = abs(ad_amout)
li_amout_flag = 1
end if

ls_numstr=string(ad_amout,"#0.00")
li_lenint=len(mid(ls_numstr,1,pos(ls_numstr,'.') - 1))
//messagebox('',li_lenint)
/*if right(ls_numstr,2)='00' then
li_lendec=0
else*/
// li_lendec=2
//end if

for i=1 to 13
ls_dxint[i]=mid(ls_dxstr,26 - i*2+1,2)
if i<11 then
ls_sz[i]=mid(ls_szstr,i*2 - 1,2)
else
ls_sz[i]=" "
end if
next
ls_dxdec[1]="角"
ls_dxdec[2]="分"
ls_dxstr=" "

for i = 1 to li_lenint
a = mid(mid(ls_numstr,1,li_lenint),i,1)
b = ls_sz[integer(a)+1]
c = ls_dxint[li_lenint - i +1]
/*if ls_dxstr<>" " then
d = mid(ls_dxstr,len(ls_dxstr) - 1 ,2)
else
d = " "
end if
if b="零" and (d="零" or b=bbak or c="元" or c="万" or c="亿") then b=""
if a="0" and c<>"元" and c<>"万" and c<>"亿" then c=""
if (c="元" or c="万" or c="亿") and d="零" and a="0" then
ls_dxstr=mid(ls_dxstr,1,len(ls_dxstr) - 2)
d = mid(ls_dxstr,len(ls_dxstr) - 1,2)
if (c="元" and d="万" or c="万"and d="亿") then c=""
end if*/
ls_dxstr=ls_dxstr + b + c
//bbak = b
next
//messagebox('',ls_dxstr)
for i=1 to 2
a = mid (mid(ls_numstr,li_lenint+2,2),i,1)
b=ls_sz[integer(a) + 1]
ls_dxstr=ls_dxstr+b+ls_dxdec[i]
next
ls_dxstr="￥￥"+trim(ls_dxstr)

if position > len(ls_dxstr) then
return return_value
else
return_value=left(right(ls_dxstr,position),2)
end if

return return_value

poemlake 2003-12-11

打赏
举报

这是我以前的一个函数，是在别人的函数基础上改的
两个参数 ad_mount (要黑转换的数字) position(所要取得的字符的位置)
返回并不是整个的大写，你可以改一下
//------------------------------------------------//
// 将金额转为大写
//------------------------------------------------//

int i,li_lendec,li_lenint
int li_amout_flag
string ls_numstr,a,b,c,d,bbak
string ls_dxint[13],ls_dxdec[2],ls_sz[13]
string ls_dxstr="万仟佰拾亿仟佰拾万仟佰拾元"
string ls_szstr="零壹贰叁肆伍陆柒捌玖"
string return_value

if ad_amout < 0.00 then
ad_amout = abs(ad_amout)
li_amout_flag = 1
end if

ls_numstr=string(ad_amout,"#0.00")
li_lenint=len(mid(ls_numstr,1,pos(ls_numstr,'.') - 1))
//messagebox('',li_lenint)
/*if right(ls_numstr,2)='00' then
li_lendec=0
else*/
// li_lendec=2
//end if

for i=1 to 13
ls_dxint[i]=mid(ls_dxstr,26 - i*2+1,2)
if i<11 then
ls_sz[i]=mid(ls_szstr,i*2 - 1,2)
else
ls_sz[i]=" "
end if
next
ls_dxdec[1]="角"
ls_dxdec[2]="分"
ls_dxstr=" "

for i = 1 to li_lenint
a = mid(mid(ls_numstr,1,li_lenint),i,1)
b = ls_sz[integer(a)+1]
c = ls_dxint[li_lenint - i +1]
/*if ls_dxstr<>" " then
d = mid(ls_dxstr,len(ls_dxstr) - 1 ,2)
else
d = " "
end if
if b="零" and (d="零" or b=bbak or c="元" or c="万" or c="亿") then b=""
if a="0" and c<>"元" and c<>"万" and c<>"亿" then c=""
if (c="元" or c="万" or c="亿") and d="零" and a="0" then
ls_dxstr=mid(ls_dxstr,1,len(ls_dxstr) - 2)
d = mid(ls_dxstr,len(ls_dxstr) - 1,2)
if (c="元" and d="万" or c="万"and d="亿") then c=""
end if*/
ls_dxstr=ls_dxstr + b + c
//bbak = b
next
//messagebox('',ls_dxstr)
for i=1 to 2
a = mid (mid(ls_numstr,li_lenint+2,2),i,1)
b=ls_sz[integer(a) + 1]
ls_dxstr=ls_dxstr+b+ls_dxdec[i]
next
ls_dxstr="￥￥"+trim(ls_dxstr)

if position > len(ls_dxstr) then
return return_value
else
return_value=left(right(ls_dxstr,position),2)
end if

return return_value

bunnysky 2003-12-11

打赏
举报

TGWall 2003-12-11

打赏
举报

看一看这个吧,前段时间讨论得热火朝天的
http://expert.csdn.net/Expert/topic/2148/2148196.xml?temp=.4854853

intuition444 2003-12-11

打赏
举报

我有一个PB8的源码，邮箱留下，我发给你

sundayblue 2003-12-11

打赏
举报

这需要自己写程序,好象论坛里有相关的帖子,自己搜一搜

intuition444 2003-12-11

打赏
举报

发完了！

hong99 2003-12-11

打赏
举报

intuition444(直觉):我的邮箱是:hong_ley@163.com
先谢谢了.

如何把数字(currency)转化成大写的汉字串

相关推荐