阿拉伯数字转大写数字的代码实例
时 间:2021-01-19 22:13:41
作 者:强联财务室 ID:77261 城市:北京
摘 要:阿拉伯数字转大写数字。
正 文:
学了点vba基础,动手练习敲代码,完成了阿拉伯数字向大写数字的功能,分享源代码如下:
----------------------------------------------------------------
Public Function Numtostr(Getnum) As String
Dim Num, z, x, c
Dim n, m, i, Point As Integer
Dim Str As String
Num = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")
z = Array("", "拾", "佰", "仟")
x = Array("", "万", "亿", "万亿")
c = Array("", "角", "分")
If InStr(Getnum, ".") = 0 Then
n = Len(Getnum)
For i = 1 To n
m = Mid(Getnum, i, 1)
Str = Str + Num(m)
If m > 0 Then Str = Str + z((n - i) Mod 4)
Str = Replace(Str, Num(0) & Num(0), Num(0))
If ((n - i) Mod 4) = 0 And Right(Str, 1) = Num(0) Then Str = Left(Str, Len(Str) - 1)
If ((n - i) Mod 4) = 0 Then Str = Str + x(Int((n - i) / 4))
Next i
Str = Str & "元整"
Else
Point = InStr(Getnum, ".") - 1
Getnum = Replace(Getnum, ".", "")
For i = 1 To Point
m = Mid(Getnum, i, 1)
Str = Str + Num(m)
If m > 0 Then Str = Str + z((Point - i) Mod 4)
Str = Replace(Str, Num(0) & Num(0), Num(0))
If ((Point - i) Mod 4) = 0 And Right(Str, 1) = Num(0) Then Str = Left(Str, Len(Str) - 1)
If ((Point - i) Mod 4) = 0 Then Str = Str + x(Int((Point - i) / 4))
Next i
Str = Str & "元"
For i = 1 To Len(Getnum) - Point
Str = Str + Num(Mid(Getnum, i + Point, 1))
If Num(Mid(Getnum, i + Point, 1)) = Num(0) Then
Str = Left(Str, Len(Str) - 1)
Else
Str = Str + c(i)
End If
Next i
End If
Numtostr = Str
End Function
可以在立即窗口中输入?Numtostr(1000100)看下结果。
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)