注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

你所要的信息,请收入囊中。

 
 
 

日志

 
 

利用VFP将数字变成大写汉字【程序设计源代码】  

2013-07-09 19:49:15|  分类: 计算机 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

利用VFP将数字变成大写汉字【程序设计源代码】

FUNCTION dxxfun(mrmbze)

LOCAL s_1,s_2,s_3,s_4

s_1="零壹贰叁肆伍陆柒捌玖"

s_2="仟佰拾万仟佰拾元角分"

s_3=88888888.88

s_4=STR(mrmbze*100,10)

i=1

mm=" "

DO WHILE i<=10

s_5=SUBSTR(s_4,i,1)

IF s_5<>" "

s_6=SUBSTR(s_1,VAL(s_5)*2+1,2)

s_7=SUBSTR(s_2,i*2-1,2)

IF s_5="0".AND.i<>4.AND.i<>8

s_7=""

ENDIF

IF (SUBSTR(s_4,i,2)="00").OR.(s_5="0".AND.(i=4.OR.i=8.OR.i=10))

s_6=""

ENDIF

mm=mm+s_6+s_7

IF SUBSTR(s_4,i,1)="0".AND.SUBSTR(s_4,i+1,1)<>"0".AND.(i=4.OR.i=8)

mm=mm+""

ENDIF

ENDIF

i=i+1

ENDDO

IF s_5="0"

mm=mm+""

ENDIF

RETURN(mm)

ENDFUNC

  评论这张
 
阅读(69)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017