📄 金额大小写转换.htm
字号:
style="Z-INDEX: 1000; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px; BACKGROUND-COLOR: #9cc5f8"></DIV>
<TABLE class=tdbg cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR class=nav_top>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD> </TD>
<TD class=title_maintxt width=600>| <A
href="http://www.topdelphi.net/Index.asp"
target=_blank>首页</A> | <A
href="http://www.topdelphi.net/Article_Index.asp"
target=_blank><FONT color=red>文章</FONT></A> | <A
href="http://www.topdelphi.net/Soft_Index.asp"
target=_blank>下载</A> | <A
href="http://www.topdelphi.net/Photo_Index.asp"
target=_blank>图片</A> | <A
href="http://www.topdelphi.net/bbs/index.asp"
target=_blank>论坛</A> | <A
href="http://www.topdelphi.net/guestbook.asp"
target=_blank>留言</A> | </TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center>
<TBODY>
<TR>
<TD height=4></TD></TR>
<TR>
<TD vAlign=center>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR vAlign=center>
<TD width=180><A title=Delphi先锋网
href="http://www.topdelphi.net/"><IMG height=60
src="金额大小写转换.files/newlogo.gif" width=180 border=0></A> </TD>
<TD width=500>
<DIV align=center><A title=Delphi先锋网
href="http://www.topdelphi.net/"><IMG height=60
src="金额大小写转换.files/xianfeng.gif" width=480 border=0></A>
</DIV></TD>
<TD width=80>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width="100%"
align=center border=0>
<TBODY>
<TR vAlign=center>
<TD align=middle><IMG height=16
src="金额大小写转换.files/home.gif" width=16
align=absMiddle></TD>
<TD align=middle><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></TD></TR>
<TR vAlign=center>
<TD align=middle><IMG height=17
src="金额大小写转换.files/email.gif" width=16
align=absMiddle></TD>
<TD align=middle><A
href="mailto:delphilxh@163.com">联系站长</A></TD></TR>
<TR vAlign=center>
<TD align=middle><IMG height=16
src="金额大小写转换.files/bookmark.gif" width=16
align=absMiddle></TD>
<TD align=middle><A
href="javascript:window.external.addFavorite('http://www.topdelphi.net','Delphi先锋网')">加入收藏</A></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR vAlign=center>
<TD class=nav_menu vAlign=center>
<SCRIPT language=JavaScript1.2 type=text/javascript>
<!--
stm_bm(['uueoehr',400,'','images/blank.gif',0,'','',0,0,0,0,0,1,0,0]);
stm_bp('p0',[0,4,0,0,2,2,0,0,100,'',-2,'',-2,90,0,0,'#000000','transparent','',3,0,0,'#000000']);
stm_ai('p0i0',[0,'|','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#000000','#000000','#000000','9pt 宋体','9pt 宋体',0,0]);
stm_aix('p0i1','p0i0',[0,'文章首页','','',-1,-1,0,'Article_Index.asp','_self','Article_Index.asp','','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#ff0000','#000000','#cc0000','9pt 宋体','9pt 宋体']);
stm_aix('p0i2','p0i0',[0,'|','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#000000','#000000','#000000','9pt 宋体','9pt 宋体',0,0]);
stm_aix('p0i3','p0i0',[0,'Object Pascal','','',-1,-1,0,'Article_Class2.asp?ClassID=8','_self','Article_Class2.asp?ClassID=8','Object Pascal的一些用法和资料','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#ff0000','#000000','#cc0000','9pt 宋体','9pt 宋体']);
stm_aix('p0i2','p0i0',[0,'|','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#000000','#000000','#000000','9pt 宋体','9pt 宋体',0,0]);
stm_aix('p0i4','p0i0',[0,'Windows Api','','',-1,-1,0,'Article_Class2.asp?ClassID=1','_self','Article_Class2.asp?ClassID=1','有关api函数的技术文章','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#ff0000','#000000','#cc0000','9pt 宋体','9pt 宋体']);
stm_aix('p0i2','p0i0',[0,'|','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#000000','#000000','#000000','9pt 宋体','9pt 宋体',0,0]);
stm_aix('p0i5','p0i0',[0,'网络编程技术','','',-1,-1,0,'Article_Class2.asp?ClassID=2','_self','Article_Class2.asp?ClassID=2','网络编程技巧','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#ff0000','#000000','#cc0000','9pt 宋体','9pt 宋体']);
stm_aix('p0i2','p0i0',[0,'|','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#000000','#000000','#000000','9pt 宋体','9pt 宋体',0,0]);
stm_aix('p0i6','p0i0',[0,'图像处理','','',-1,-1,0,'Article_Class2.asp?ClassID=3','_self','Article_Class2.asp?ClassID=3','图像处理','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#ff0000','#000000','#cc0000','9pt 宋体','9pt 宋体']);
stm_aix('p0i2','p0i0',[0,'|','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#000000','#000000','#000000','9pt 宋体','9pt 宋体',0,0]);
stm_aix('p0i7','p0i0',[0,'系统编程','','',-1,-1,0,'Article_Class2.asp?ClassID=4','_self','Article_Class2.asp?ClassID=4','系统编程','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#ff0000','#000000','#cc0000','9pt 宋体','9pt 宋体']);
stm_aix('p0i2','p0i0',[0,'|','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#000000','#000000','#000000','9pt 宋体','9pt 宋体',0,0]);
stm_aix('p0i8','p0i0',[0,'算法大全','','',-1,-1,0,'Article_Class2.asp?ClassID=5','_self','Article_Class2.asp?ClassID=5','系统编程','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#ff0000','#000000','#cc0000','9pt 宋体','9pt 宋体']);
stm_aix('p0i2','p0i0',[0,'|','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#000000','#000000','#000000','9pt 宋体','9pt 宋体',0,0]);
stm_aix('p0i9','p0i0',[0,'数据库应用','','',-1,-1,0,'Article_Class2.asp?ClassID=6','_self','Article_Class2.asp?ClassID=6','系统编程','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#ff0000','#000000','#cc0000','9pt 宋体','9pt 宋体']);
stm_aix('p0i2','p0i0',[0,'|','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#000000','#000000','#000000','9pt 宋体','9pt 宋体',0,0]);
stm_aix('p0i10','p0i0',[0,'斑竹心得','','',-1,-1,0,'Article_Class2.asp?ClassID=7','_self','Article_Class2.asp?ClassID=7','斑竹编程一些心得和笔记','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#ff0000','#000000','#cc0000','9pt 宋体','9pt 宋体']);
stm_aix('p0i2','p0i0',[0,'|','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',1,'','',3,3,0,0,'#fffff7','#000000','#000000','#000000','9pt 宋体','9pt 宋体',0,0]);
stm_em();
//-->
</SCRIPT>
</TD></TR>
<TR class=nav_main>
<TD></TD></TR>
<TR>
<TD class=nav_bottom></TD></TR></TBODY></TABLE>
<TABLE class=txt_css cellSpacing=0 cellPadding=0 width=760 align=center
bgColor=#ffffff border=0>
<TBODY>
<TR vAlign=center>
<TD width=46>
<DIV align=right><IMG height=11 src="金额大小写转换.files/arrow3.gif" width=29
align=absMiddle> </DIV></TD>
<TD width=556> 您现在的位置： <A
href="http://www.topdelphi.net/">Delphi先锋网</A> >> <A
href="http://www.topdelphi.net/Article_Index.asp">文章</A> >> <A
href="http://www.topdelphi.net/Article_Class2.asp?ClassID=5">算法大全</A> >> 正文
</TD>
<TD align=right width=158>
<SCRIPT language=JavaScript type=text/JavaScript>
var day="";
var month="";
var ampm="";
var ampmhour="";
var myweekday="";
var year="";
mydate=new Date();
myweekday=mydate.getDay();
mymonth=mydate.getMonth()+1;
myday= mydate.getDate();
myyear= mydate.getYear();
year=(myyear > 200) ? myyear : 1900 + myyear;
if(myweekday == 0)
weekday=" 星期日 ";
else if(myweekday == 1)
weekday=" 星期一 ";
else if(myweekday == 2)
weekday=" 星期二 ";
else if(myweekday == 3)
weekday=" 星期三 ";
else if(myweekday == 4)
weekday=" 星期四 ";
else if(myweekday == 5)
weekday=" 星期五 ";
else if(myweekday == 6)
weekday=" 星期六 ";
document.write(year+"年"+mymonth+"月"+myday+"日 "+weekday);
</SCRIPT>
</TD></TR></TBODY></TABLE>
<TABLE class=border2 cellSpacing=0 cellPadding=0 width=760 align=center
border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE class=border cellSpacing=0 cellPadding=2 width="100%" align=center
border=0>
<TBODY>
<TR>
<TD class=title>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD class=title_maintxt vAlign=center width="82%"> <IMG
height=14 src="金额大小写转换.files/arrow.gif" width=11
align=absMiddle> 金额大小写转换 </TD>
<TD class=title_maintxt width="18%"> <FONT
color=red>热</FONT> <FONT
color=#009900>★★★</FONT> </TD></TR></TBODY></TABLE></TD></TR>
<TR vAlign=center align=middle>
<TD colSpan=2 height=40><FONT size=4><STRONG>金额大小写转换</STRONG></FONT>
</TD></TR>
<TR class=tdbg_rightall align=middle>
<TD colSpan=2>［
作者：佚名 转贴自：本站原创 点击数：817 更新时间：2004-5-28 文章录入：<A
href="http://www.topdelphi.net/UserInfo.asp?UserID=2">delphilxh</A>
］</TD></TR>
<TR>
<TD colSpan=2>
<TABLE style="WORD-BREAK: break-all" cellSpacing=5 cellPadding=0
width=740 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top height=200>
<TABLE cellSpacing=0 cellPadding=10 align=left border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<P>金额大小写转换<BR>function My_StrToRMB(curs :string)
:string;<BR>implementation</P>
<P>function My_StrToRMB(curs: string) :string
;<BR>var<BR> daxie,danwei,minuscurs:string;<BR>
i,j,deccount :integer ;<BR> rmb :int64;</P>
<P>begin<BR> curs:=trim(curs);<BR> if (curs='-')
or (curs='.') or (curs='') then // '.','-',''错<BR>
begin<BR>
result:='ERROR';<BR> exit;<BR>
end;<BR> deccount :=0;<BR> for i:=1 to
length(curs) do<BR> begin<BR> if
not (curs[i] in ['0'..'9','.','-'])
then //'123w2'错<BR>
begin<BR>
result:='ERROR';<BR>
exit;<BR> end;<BR> if
(curs[i]='.') and (deccount>0) then
//'12313.324.23'错<BR>
begin<BR>
result:='ERROR';<BR>
exit;<BR> end;<BR> if
(curs[i]='-') and (i>1)
then
//'-123-123'错<BR>
begin<BR>
result:='ERROR';<BR>
exit;<BR> end;<BR> if
curs[i]='.' then inc(deccount);<BR> end;<BR>
rmb:=round(StrToFloat(curs)*100);<BR>
minuscurs:=''; //负数标志<BR> if rmb<0
then<BR> begin<BR> minuscurs:='(负数)'
;<BR> rmb:=(-1)*rmb;<BR>
end;<BR> if rmb>=1E18 then
//超过9千万亿<BR> begin<BR>
result:='ERROR';<BR> exit;<BR>
end;<BR> curs:='';<BR> i:=0; j:=0 ;<BR>
while rmb>0 do<BR> begin<BR> j:=
rmb mod 10;<BR> case j
of<BR> 0 : daxie :='零'
;<BR> 1 : daxie :='壹'
;<BR> 2 : daxie :='贰'
;<BR> 3 : daxie :='叁'
;<BR> 4 : daxie :='肆'
;<BR> 5 : daxie :='伍'
;<BR> 6 : daxie :='陆'
;<BR> 7 : daxie :='柒'
;<BR> 8 : daxie :='捌'
;<BR> 9 : daxie :='玖'
;<BR> end;<BR> case i
of<BR> 0 : danwei :='分'
;<BR> 1 : danwei :='角'
;<BR> 2 : danwei :='圆'
;<BR> 3 : danwei :='拾'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -