<<< 返回 access911.net 编程静态资料库索引页

如何将人民币小写金额转为大写?大小写转换(二)

 

作者:多位网友 & cg1  摘自:  录入:cg1  时间:2002-11-21  浏览人次:9873


专题地址:http://access911.net/fixhtm/73FAB21E.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


问题:


如何将人民币小写金额转为大写?(二)
以下为数字货币转换为大写格式程序
人民币大小写转换

 

评论:可惜,没有一个完全满足要求的。

方法一:


以下只能转换整数
以下为数字货币转换为大写格式程序, 首先建一个模块, 将以下程序复制进去并保存. (注: 最高位数为千万位)
调用方式为:
dollars = convertNum(inputValue)


  ^                        ^
须显示                  填写小
大写的                  写的控
控件                    件名

Function GetChoice1(ByVal ind As Integer)
    GetChoice1 = Choose(ind + 1, "零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")
End Function
Function GetChoice2(ByVal ind As Integer) '注意"byval",按值传递
    Dim tempInt As Inte.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/73FAB21E.htm

 


上一篇:如何隐藏/显示某个表或者其他数据库对象?

下一篇:如何获取本机/主机的 IP 地址(获取多块网卡ip地址)

2017年2月22日生成静态资料