高校问答武林外传书生演员:帮帮我啊~!
来源：百度文库 编辑：高校问答 时间：2024/04/29 12:14:19
怎么用VF编写程序实现:从键盘输入一个万元以内的金额(包括两位小数),然后转换为中文输出.例如,输入1234.56,输出壹仟贰佰叁拾肆元伍角陆分.
&&函数名称：金额大写
&& 适应范围：一亿元以内，精确到分（足够了）。
&& 输入单位: 万元（适合大额汇票收款，可自己该为元单位）。
&& 可 靠 性：随程序发布，运行三年没问题。
&& 程序设计：Fc_mkd (原名)
LPARAMETERS JEXX (万元)
*********************************************
MK=STR(JEXX*1000,11)
NM='零壹贰叁肆伍陆柒捌玖'
DW='仟佰拾万仟佰拾元角分'
JEDX=''
X=1
DO WHIL X<=10
A=SUBS(MK,X,1)
B=SUBS(MK,X+1,1)
IF A=' '
X=X+1
LOOP
ENDI
Y=SUBS(NM,2*VAL(A)+1,2)
Z=SUBS(DW,X*2-1,2)
IF Y='零'
IF X=4.OR.X=8
IF X=4
JEDX=JEDX+'万'
ENDI
IF X=8
JEDX=JEDX+'元'
ENDI
IF SUBS(MK,X-1)='0'.AND.VAL(SUBS(MK,X+1))>0
JEDX=JEDX+'零'
ENDI
ELSE
IF B<>'0'.AND.RIGH(JEDX,2)<>'零'
JEDX=JEDX+'零'
ENDI
ENDI
ELSE
JEDX=JEDX+Y+Z
ENDI
X=X+1
ENDD
IF RIGH(JEDX,2)<>'分'.AND.LEN(JEDX)>0
JEDX=JEDX+'整'
ENDI
RETU
那么简单的问题也问,太不动脑子了嘛.
你会编程吗？
在VF定义域格式模板一节有介绍