vb .net 转换大写金额函数

最新推荐文章于 2018-08-09 09:03:00 发布

ljq900

最新推荐文章于 2018-08-09 09:03:00 发布

阅读量1.5k

点赞数

分类专栏：编程语言文章标签： vb .net integer string function

本文链接：https://blog.csdn.net/ljq900/article/details/7703475

版权

该博客介绍了一个VB.NET中将数值转换为大写金额的自定义函数yh_bigmoney。函数接受Double类型参数，通过取整和四舍五入获取整数和小数部分，然后分别进行大写转换。整数部分使用循环处理，根据模运算结果判断是否添加大写字符。小数部分同样处理，但会限制到三位。最后，组合整数和小数部分的大写结果，并返回'整'字表示完整金额。

摘要由CSDN通过智能技术生成

Function yh_bigmoney(ByVal num As Double) As String
Dim intpart As Integer
Dim dotpart As Integer
Dim cm As Integer
intpart = Int(num)
dotpart = yh_round((num - intpart) * 1000)

Dim retval As String, dotval As String
Dim i As Integer
Dim pre0 As Boolean
' Debug.Write(intpart)
'Debug.WriteLine("")
'Debug.Write(dotpart)
'Debug.WriteLine("")
i = 0
pre0 = False
While intpart > 0
cm = intpart Mod 10
If cm = 0 Then
If i Mod 4 = 0 Then
retval = bigm1.Chars(i) & retval
ElseIf Not pre0 Then
retval = bigm.Chars(cm) & retval