📄 vfp——人民币小写转大写.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0060)http://seawide.51.net/vfp/bianchengjiqiao/xiaoxiezhdaxie.htm -->
<HTML><HEAD><TITLE>VFP——人民币小写转大写</TITLE>
<SCRIPT src="VFP——人民币小写转大写.files/header.htm"></SCRIPT>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>BODY {
SCROLLBAR-FACE-COLOR: #fef3fe; SCROLLBAR-SHADOW-COLOR: #368beb; SCROLLBAR-ARROW-COLOR: #368beb; SCROLLBAR-BASE-COLOR: #368beb
}
.font1 {
FONT-SIZE: 10pt; LINE-HEIGHT: 20px; FONT-FAMILY: 宋体
}
.font2 {
FONT-SIZE: 9pt; LINE-HEIGHT: 20px; FONT-FAMILY: 宋体
}
A {
TEXT-DECORATION: none
}
A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A:active {
TEXT-DECORATION: none
}
A:hover {
COLOR: #000000; TEXT-DECORATION: underline
}
</STYLE>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY>
<CENTER>
<TABLE borderColor=#368beb height=26 cellSpacing=0 borderColorDark=#ffffff
cellPadding=0 width=740 bgColor=#ffffff borderColorLight=#368beb border=1
rightmargin="15" leftmargin="15" bottommargin="15" topmargin="15">
<TBODY class=font2>
<TR>
<TD align=middle background="" height=20><FONT color=#fffff0>—— 你 我 的 VFP！
——</FONT></TD></TR>
<TR align=left>
<TD> 你现在所处位置：编程技巧</TD></TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=10 border=0>
<TBODY>
<TR>
<TD class=font1 width=740><FONT color=#000064><BR>
<CENTER><FONT face=黑体 color=red size=5>人民币小写转大写</FONT></CENTER><BR>
<HR SIZE=1>
<BR>&&函数名称：金额大写 <BR>&& 适应范围：一亿元以内，精确到分（足够了）。
<BR>&& 输入单位: 万元（适合大额汇票收款，可自己该为元单位）。 <BR>&& 可 靠
性：随程序发布，运行三年没问题。 <BR>&& 程序设计：Fc_mkd (原名) <BR><BR>LPARAMETERS
JEXX (万元) <BR>*********************************************
<BR>MK=STR(JEXX*1000,11) <BR>NM='零壹贰叁肆伍陆柒捌玖' <BR>DW='仟佰拾万仟佰拾元角分'
<BR>JEDX='' <BR>X=1 <BR>DO WHIL X<=10 <BR>A=SUBS(MK,X,1)
<BR>B=SUBS(MK,X+1,1) <BR>IF A=' ' <BR>X=X+1 <BR>LOOP <BR>ENDI
<BR>Y=SUBS(NM,2*VAL(A)+1,2) <BR>Z=SUBS(DW,X*2-1,2) <BR>IF Y='零'
<BR>IF X=4.OR.X=8 <BR>IF X=4 <BR>JEDX=JEDX+'万' <BR>ENDI <BR>IF X=8
<BR>JEDX=JEDX+'元' <BR>ENDI <BR>IF
SUBS(MK,X-1)='0'.AND.VAL(SUBS(MK,X+1))>0 <BR>JEDX=JEDX+'零'
<BR>ENDI <BR>ELSE <BR>IF B<>'0'.AND.RIGH(JEDX,2)<>'零'
<BR>JEDX=JEDX+'零' <BR>ENDI <BR>ENDI <BR>ELSE <BR>JEDX=JEDX+Y+Z
<BR>ENDI <BR>X=X+1 <BR>ENDD <BR>IF
RIGH(JEDX,2)<>'分'.AND.LEN(JEDX)>0 <BR>JEDX=JEDX+'整'
<BR>ENDI <BR>RETU<BR><BR><BR><BR></FONT></TD></TR></TBODY></TABLE></TD></TR>
<TR align=right>
<TD>『发 表 评 论』</TD></TR>
<TR>
<TD vAlign=bottom align=middle background="" height=20>〖<A
href="http://seawide.51.net/vfp/index.htm">返回</A>〗 〖<A
href="javascript:window.close()">关闭</A>〗</TD></TR></TBODY></TABLE></CENTER>
<SCRIPT src="VFP——人民币小写转大写.files/footer.htm"></SCRIPT>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -