社区
VFP
帖子详情
人发币大小写转换函数。。。。
一半乐事
2003-06-09 12:00:03
我的VFP程序需要一个人发币大小写转换函数。可我想了很久也想不到好的方法,请高手指点一下思路,能提供代码重谢。要求就是将一任意数字转变成人发币大写显示出来。
...全文
51
3
打赏
收藏
人发币大小写转换函数。。。。
我的VFP程序需要一个人发币大小写转换函数。可我想了很久也想不到好的方法,请高手指点一下思路,能提供代码重谢。要求就是将一任意数字转变成人发币大写显示出来。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Maple119
2003-06-09
打赏
举报
回复
* 将数值转转换成人民币的大写形式
LPARAMETERS m.Je
m.je = 99960021600.18
LOCAL m.cStr, m.nValue, m.I, m.lZero, m.lY,m.lW
IF m.Je > 999999999999.99
RETURN '只能算到千亿元'
ENDIF
m.Je = ALLTRIM(STR(m.Je*100,14))
m.cStr =''
FOR i=0 TO LEN(m.Je)-1
m.nValue = VAL(SUBSTR(m.Je,I+1,1))
m.cStr = m.cStr + SUBSTR('零壹贰叁肆伍陆染捌玖',m.nValue*2+1,2)
m.cStr = m.cStr + ALLTRIM(SUBSTR(' 分 角 元 拾 佰 千 万拾万百万仟万 亿拾亿佰亿千亿',(LEN(m.Je)-I-1)*4+1,4))
ENDFOR
m.lZero = .F.
I=LEN(m.cStr)-1
*SET STEP ON
DO While I>0
m.Je =SUBSTR(m.cStr,I,2)
IF m.Je=='零'
IF SUBSTR(m.cStr,I+2,2)=='元'
m.cStr = LEFT(m.cStr,I-1) + RIGHT(m.cStr,LEN(m.cStr)-I-1)&&零元 去掉 零
ELSE
IF m.lZero
m.cStr = LEFT(m.cStr,I-1) + RIGHT(m.cStr,LEN(m.cStr)-I-3) &&第二次出玩零时去掉四个字符
ELSE
m.cStr = LEFT(m.cStr,I+1) + RIGHT(m.cStr,LEN(m.cStr)-I-3) &&第一次出现去掉零后面的两个字符
I=I-2
ENDIF
ENDIF
m.lZero = .T.
Loop
ENDIF
I=I-2
IF AT(m.Je,'零壹贰叁肆伍陆染捌玖')<>0
m.lZero = .F.
EndIF
ENDDO
IF RIGHT(m.cStr,2) = '零'
m.cStr = LEFT(m.cStr,LEN(m.cStr)-2)
ENDIF
IF RIGHT(m.cStr,2)<>'分'
m.cStr = m.cStr + '整'
ENDIF
*IF RIGHT(m.cStr,4)='分整'
* m.cStr = LEFT(m.cStr,LEN(m.cStr)-2)
*NDIF
*将多余的万与亿去掉
m.lZero = .F.
FOR m.I=LEN(m.cStr)-1 TO 0 STEP -2
IF SUBSTR(m.cStr,I,2)='万'
IF m.lZero
m.cStr = LEFT(m.cStr,I-1) + RIGHT(m.cStr,LEN(m.cStr)-I-1)
ELSE
m.lZero = .T.
ENDIF
ENDIF
ENDFOR
m.lZero = .F.
FOR m.I=LEN(m.cStr)-1 TO 0 STEP -2
IF SUBSTR(m.cStr,I,2)='亿'
IF m.lZero
m.cStr = LEFT(m.cStr,I-1) + RIGHT(m.cStr,LEN(m.cStr)-I-1)
ELSE
m.lZero = .T.
ENDIF
ENDIF
ENDFOR
RETURN m.cStr
这是我写的,昨天在家用Delphi重写一个时,方法比这个简单多了,但没有时间重写VFP用的.
xiolig
2003-06-09
打赏
举报
回复
http://expert.csdn.net/Expert/topic/1807/1807207.xml?temp=.3786585
一半乐事
2003-06-09
打赏
举报
回复
哦,写错了,是人民币。
mysql
大小写转换
函数
MySQL字符串
大小写转换
需要用到MySQL字符串
大小写转换
函数
。 mysql 字符串大小写转化
函数
有两对: lower(), uppper() 和 lcase(), ucase(): 我选择 lower(), upper() 来实现MySQL转换字符串大小写,因为这和其他数据库中
函数
相兼容。...
SQL-
大小写转换
函数
《SQL-
大小写转换
函数
》 一、 说明 本文主要讲一下SQL数据库中的
大小写转换
的
函数
二、 所用工具 SQL数据库 三、 具体内容 1.语法: 将大写字母转换为小写字母:SELECT LOWER(column_name) FROM table_name; 2.解释: SELECT、LOWER、FROM为关键字,把LOWER改为UPPER则为将小写字母转换为大写字母 column_name为要进行小写转换的列 table_name为该列所在的表 3.例子: 表结构:表名为EmployeeTable 表数据
mysql
大小写转换
函数
_MySQL字母
大小写转换
函数
UPPER(s)、UCASE(s)、LOWER(s)和LCASE(s)
UPPER(s)
函数
和UCASE(s)
函数
UPPER(s)或UCASE(s)
函数
可以将字符串s中的字母字符全部转换成大写字母。实例:使用UPPER
函数
或者UCASE
函数
将字符串中的所有字母字符转换为大写。SQL语句如下:mysql>SELECT UPPER('www.baike369.com'),UCASE('Www.BaiKE369.Com');执行结果如下:从上图中的操作结果可以看出,这...
MySQL字符串
大小写转换
函数
[javascript] view plain copy MySQL字符串
大小写转换
需要用到MySQL字符串
大小写转换
函数
。 mysql 字符串大小写转化
函数
有两对: lower(), uppper() 和 lcase(), ucase(): mysql> sele
Excel
大小写转换
函数
Excel中的
大小写转换
函数
(1)、转换为全部小写字母:lower
函数
(2)、转换为全部大写字母:upper
函数
(3)、转换为首字母大写,其余小写字母:proper
函数
三种
函数
的使用方式,如下图所示: 流程操作,如下图所示: 小知识,简而记之。
VFP
2,748
社区成员
29,138
社区内容
发帖
与我相关
我的任务
VFP
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
复制链接
扫一扫
分享
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章