📄 金额大小写转换.htm
字号:
;<BR> 4 : danwei :='佰'
;<BR> 5 : danwei :='仟'
;<BR> 6 : danwei :='万'
;<BR> 7 : danwei :='拾'
;<BR> 8 : danwei :='佰'
;<BR> 9 : danwei :='仟'
;<BR> 10 : danwei :='亿'
;<BR> 11 : danwei :='拾'
;<BR> 12 : danwei :='佰'
;<BR> 13 : danwei :='仟'
;<BR> 14 : danwei :='万'
;<BR> 15 : danwei :='拾'
;<BR> 16 : danwei :='佰'
;<BR> 17 : danwei :='仟'
;<BR> end;<BR> rmb:=rmb
div 10;<BR> if j<>0 then
curs:=daxie+danwei+curs;
//该位上不为0<BR> if (j=0) and (not (i in
[2,6,10,14])) then
//该位为0，是一般位<BR>
curs:=daxie+curs;<BR> if (j=0) and (i
in [2,6,10,14]) then
//该位为0，是敏感位<BR>
curs:=danwei+curs;<BR> inc(i);<BR>
end;<BR> while pos('零零',curs)>0 do
curs:=stringreplace(curs,'零零','零',[]);<BR>
curs:=stringreplace(curs,'零圆','圆',[]);<BR> while
pos('零万',curs)>0 do
curs:=stringreplace(curs,'零万','万',[]);
//上万亿后可能两个'零万'<BR>
curs:=stringreplace(curs,'零亿','亿',[]);<BR>
curs:=stringreplace(curs,'角零','角整',[]);<BR> if
copy(curs,length(curs)-3,4)='圆零' then
//最后两位是圆零.<BR>
curs:=stringreplace(curs,'圆零','圆整',[]); //小数点后<BR>
curs:=stringreplace(curs,'亿万','亿',[]);<BR>
result:=minuscurs+curs;<BR>end;</P></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD colSpan=2>
<TABLE
style="BORDER-TOP: #6687ba 1px solid; BORDER-BOTTOM: #6687ba 1px solid"
height=50 cellSpacing=5 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<LI>上一篇文章： <A
title="文章标题：用拼音来检索汉字 作 者：佚名 更新时间：2004-4-13 21:02:17 点击次数：1035"
href="http://www.topdelphi.net/Article_Show.asp?ArticleID=41">用拼音来检索汉字</A>
<BR>
<LI>下一篇文章： <A
title="文章标题：获取一个汉字的拼音首字 作 者：佚名 更新时间：2004-12-7 23:37:26 点击次数：96"
href="http://www.topdelphi.net/Article_Show.asp?ArticleID=88">获取一个汉字的拼音首字</A>
</LI></TD></TR></TBODY></TABLE></TD></TR>
<TR class=tdbg_leftall align=right>
<TD colSpan=2>【<A
href="http://www.topdelphi.net/Article_Comment.asp?ArticleID=49"
target=_blank>发表评论</A>】【<A
href="http://www.topdelphi.net/SendMail.asp?ArticleID=49"
target=_blank>告诉好友</A>】【<A
href="http://www.topdelphi.net/Article_Print.asp?ArticleID=49">打印此文</A>】【<A
href="javascript:window.close();">关闭窗口</A>】</TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle height=13>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR>
<TD class=tdbg_left2
height=13></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="99%" align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=250>
<TABLE class=border height="100%" cellSpacing=0 cellPadding=2
width="100%" border=0>
<TBODY>
<TR class=title>
<TD>
<DIV align=center>
<TABLE class=tdbg_rightall cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD class=title_maintxt>
<DIV
align=center><STRONG> 最新5篇热点文章</STRONG></DIV></TD></TR></TBODY></TABLE></DIV></TD></TR>
<TR>
<TD vAlign=top height=120>
<TABLE height="100%" cellSpacing=5 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD vAlign=top>
<LI><A
title="文章标题：用Delphi制作DLL 作 者：阿朱 更新时间：2004-12-13 13:17:19 点击次数：55"
href="http://www.topdelphi.net/Article_Show.asp?ArticleID=91"
target=_blank>用Delphi制作DLL</A>[<FONT
color=red>55</FONT>]<BR>
<LI><A
title="文章标题：Windows消息详解 作 者：佚名 更新时间：2004-12-10 21:16:29 点击次数：70"
href="http://www.topdelphi.net/Article_Show.asp?ArticleID=89"
target=_blank>Windows消息详解</A>[<FONT
color=red>70</FONT>]<BR>
<LI><A
title="文章标题：获取一个汉字的拼音首字 作 者：佚名 更新时间：2004-12-7 23:37:26 点击次数：96"
href="http://www.topdelphi.net/Article_Show.asp?ArticleID=88"
target=_blank>获取一个汉字的拼音首字</A>[<FONT
color=red>96</FONT>]<BR>
<LI><A
title="文章标题：利用API函数实现图像淡入淡出效果 作 者：佚名 更新时间：2004-12-7 23:35:39 点击次数：52"
href="http://www.topdelphi.net/Article_Show.asp?ArticleID=87"
target=_blank>利用API函数实现图像淡入淡…</A>[<FONT
color=red>52</FONT>]<BR>
<LI><A
title="文章标题：INI文件编程 作 者：佚名 更新时间：2004-12-7 23:30:56 点击次数：56"
href="http://www.topdelphi.net/Article_Show.asp?ArticleID=86"
target=_blank>INI文件编程</A>[<FONT
color=red>56</FONT>]<BR></LI></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top width=5> </TD>
<TD vAlign=top width=250>
<TABLE class=border height="100%" cellSpacing=0 cellPadding=2
width="100%" border=0>
<TBODY>
<TR class=title>
<TD>
<DIV align=center>
<TABLE class=tdbg_rightall cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD class=title_maintxt>
<DIV
align=center><STRONG> 最新5篇推荐文章</STRONG></DIV></TD></TR></TBODY></TABLE></DIV></TD></TR>
<TR>
<TD vAlign=top height=120>
<TABLE height="100%" cellSpacing=5 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD vAlign=top>
<LI><A
title="文章标题：如何学好Delphi 作 者：佚名 更新时间：2004-5-27 16:37:05 点击次数：1983"
href="http://www.topdelphi.net/Article_Show.asp?ArticleID=47"
target=_blank>如何学好Delphi</A>[<FONT
color=red>1983</FONT>]<BR>
<LI><A
title="文章标题：简单使用Delphi中的TO-DO List 作 者：佚名 更新时间：2004-4-3 0:31:55 点击次数：1078"
href="http://www.topdelphi.net/Article_Show.asp?ArticleID=32"
target=_blank>简单使用Delphi中的TO-DO …</A>[<FONT
color=red>1078</FONT>]<BR>
<LI><A
title="文章标题：拦截其它程序的网络数据封包 作 者：pankun（原作） 更新时间：2004-3-23 13:04:32 点击次数：3614"
href="http://www.topdelphi.net/Article_Show.asp?ArticleID=2"
target=_blank>拦截其它程序的网络数据封…</A>[<FONT
color=red>3614</FONT>]<BR></LI></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top width=5> </TD>
<TD vAlign=top width=250>
<TABLE class=border height="100%" cellSpacing=0 cellPadding=2
width="100%" border=0>
<TBODY>
<TR class=title>
<TD>
<DIV align=center>
<TABLE class=tdbg_rightall cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD class=title_maintxt>
<DIV align=center><STRONG> 相 关 文
章</STRONG></DIV></TD></TR></TBODY></TABLE></DIV></TD></TR>
<TR>
<TD vAlign=top height=120>
<TABLE height="100%" cellSpacing=5 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD vAlign=top>
<LI><A
title="文章标题：人民币金额大小写转换函数 作 者：『Delphi园地』 更新时间：2004-3-24 10:43:13 点击次数：1559"
href="http://www.topdelphi.net/Article_Show.asp?ArticleID=12">人民币金额大小写转换函数…</A>[<FONT
color=red>1559</FONT>]<BR></LI></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
<TABLE class=border cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR class=title>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="99%" border=0>
<TBODY>
<TR>
<TD class=title_maintxt><STRONG> <IMG height=16
src="金额大小写转换.files/TEAM.gif" width=16
align=absMiddle> 网友评论：</STRONG>（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）</TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD>
<TABLE style="WORD-BREAK: break-all" height="100%" cellSpacing=5
cellPadding=0 width="99%" border=0>
<TBODY>
<TR>
<TD vAlign=top> 没有任何评论
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE class=tdbg cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle height=13>
<TABLE cellSpacing=0 cellPadding=0 width=755 align=center border=0>
<TBODY>
<TR>
<TD class=tdbg_left2
height=13></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE class=topborder cellSpacing=0 cellPadding=0 width=760 align=center
border=0>
<TBODY>
<TR align=middle height=22>
<TD class=title_maintxt>| <A
onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.topdelphi.net');"
href="http://www.topdelphi.net/Article_Show.asp?ArticleID=49#">设为首页</A> | <A
href="javascript:window.external.addFavorite('http://www.topdelphi.net','Delphi先锋网')">加入收藏</A> | <A
href="mailto:delphilxh@163.com">联系站长</A> | <A
href="http://www.topdelphi.net/FriendSite.asp"
target=_blank>友情链接</A> | <A href="http://www.topdelphi.net/bbs/"
target=_blank>论坛版面</A> | <A
href="http://www.topdelphi.net/admin_login.asp"
target=_blank>管理登录</A> | </TD></TR>
<TR vAlign=bottom align=middle height=20>
<TD>版权所有 Copyright© 2003 <A
href="http://www.topdelphi.net/">Delphi先锋网</A> 站长：<A
href="mailto:delphilxh@163.com">Delphilxh</A> 页面执行时间：62.50毫秒<BR>Powered
by：MyPower Ver3.51</TD></TR></TBODY></TABLE></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -