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

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

 

作者:cg1  摘自:  录入:cg1  时间:2002-11-20  浏览人次:5215


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

 

简述:

 


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

如何将人民币小写金额转为大写?(阿拉伯数字转中文)
数字小写转人民币大写
方法很多,下面只是一个相关函数。
Public Function AAA(number As Variant) As String
   If (IsNull(number)) Then
      AAA = "错误:传入负值或Null值"
   Else
      Select Case number
         Case 0: AAA = "零"
         Case 1: AAA = "壹"
         Case 2: AAA = "贰"
         Case 3: AAA = "叁"
         Case 4: AAA = "肆"
         Case 5: AAA = "伍"
         Case 6: AAA = "陆"
         Case 7: AAA = "柒"
         Case 8: AAA = "捌"
         Case 9: AAA = "玖"
         Case 10 ^ 1: AAA = "分"
         Case 10 ^ 2: AAA = "角"
 .....................
...........

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

 


上一篇:了解Access安全性

下一篇:如何取消(禁止)Autoexec宏的自动运行?

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